Jump to content

Erik.

Active Members
  • Posts

    324
  • Joined

  • Last visited

Everything posted by Erik.

  1. The only problem is.. i need to send a command whit a password and wait till i get a message back and put it into a guictrlcreatetext
  2. Yes i have MSN, Thanks i take a look
  3. can not found it whit the search...link? Mabey someone can help me whit this? I am trying it about 2 days but i can not found what i am doing wrong
  4. Deleted... I hope you can help me here and do not close this topic.. it has noting whit bots, or gaming only how to control a server so nothing whit wallhacks aimbot ect..
  5. Hallo, i think you will know about it: Call of Duty 2 For almost every game you have an rcon: remote control whit rcon you can control the game on distance Now do i want to make some for fun. here is a code you will need to send something to a server and to recieve: UDPStartup() $socket = UDPBind("172.27.183.213", 28960) UDPOpen("172.27.183.213", 28960) UDPSend($socket,"ÿÿÿÿ rcon password") While 1 $data = UDPRecv($socket,99999999) If $data <> "" Then MsgBox(0, "UDP DATA", $data) EndIf sleep(100) WEnd Func OnAutoItExit() UDPCloseSocket($socket) UDPShutdown() EndFunc Only whit that you can not make a program that everyone can use... Now did i make this whit koda: #Include <GUIConstants.au3> #Include <GuiListView.au3> #Include <File.au3> #include <Date.au3> #include <Array.au3> #include <Date.au3> #include <string.au3> $Form1_1 = GUICreate("Remote control for Call of Duty 2", 827, 598, 191, 101) $Label1 = GUICtrlCreateLabel("Server address", 8, 16, 75, 17) $Label2 = GUICtrlCreateLabel("Port", 120, 16, 23, 17) $Label3 = GUICtrlCreateLabel("Rcon password", 176, 16, 78, 17) $connect = GUICtrlCreateButton("Connect", 272, 40, 129, 25, 0) GUICtrlSetTip(-1, "Press to connect to a server") $serverip = GUICtrlCreateInput("", 8, 40, 81, 21) GUICtrlSetTip(-1, "Full in the server ip address") $serverport = GUICtrlCreateInput("", 112, 40, 41, 21) GUICtrlSetTip(-1, "Full in the server port") $serverpassword = GUICtrlCreateInput("", 168, 40, 89, 21) GUICtrlSetTip(-1, "Full in the server rcon") $Label4 = GUICtrlCreateLabel("Response from server", 136, 112, 107, 17) $response = GUICtrlCreateEdit("", 8, 136, 393, 321, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL)) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x316AC5) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetTip(-1, "In this window you can see what the server response is") $command = GUICtrlCreateInput("", 96, 472, 241, 21) GUICtrlSetTip(-1, "You can enter a direct command to the server") $Label5 = GUICtrlCreateLabel("Direct command", 8, 472, 81, 17) $sendcommand = GUICtrlCreateButton("Send", 352, 472, 49, 25, 0) GUICtrlSetTip(-1, "Press to send the direct command") $Label6 = GUICtrlCreateLabel("Name for message", 8, 80, 92, 17) $message = GUICtrlCreateInput("", 112, 80, 129, 21) GUICtrlSetTip(-1, "If you full in you name will be displayed when you type a message") $serverinfo = GUICtrlCreateButton("Server info", 16, 504, 89, 25, 0) GUICtrlSetTip(-1, "Get the server information") $serverstatus = GUICtrlCreateButton("Server status", 112, 504, 89, 25, 0) GUICtrlSetTip(-1, "Get the server status") $sendmessage = GUICtrlCreateButton("Send message", 211, 504, 89, 25, 0) GUICtrlSetTip(-1, "Send a message to all players in the game") $Label7 = GUICtrlCreateLabel("Messages", 8, 544, 52, 17) GUICtrlCreateEdit("", 80, 536, 337, 33, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL)) $tab = GUICtrlCreateTab(424, 16, 393, 513, $TCS_TOOLTIPS, $TCS_EX_FLATSEPARATORS) $Servertab = GUICtrlCreateTabItem("Server") GUICtrlCreateButton("Get info from server", 437, 53, 145, 33, 0) GUICtrlSetTip(-1, "Press this button to get the server information") GUICtrlCreateButton("Send to server", 603, 53, 145, 33, 0) GUICtrlSetTip(-1, "Press this button to send the information to the server") $Label8 = GUICtrlCreateLabel("Server password", 445, 120, 83, 17) $Input1 = GUICtrlCreateInput("", 541, 117, 105, 21) GUICtrlSetTip(-1, "if you want a server password full in this box and press Set") $Button1 = GUICtrlCreateButton("Set", 653, 117, 57, 25, 0) GUICtrlSetTip(-1, "Add a server password") $Button2 = GUICtrlCreateButton("Remove", 725, 117, 57, 25, 0) GUICtrlSetTip(-1, "Remove the server password") $Label9 = GUICtrlCreateLabel("Server name", 445, 157, 64, 17) $Label10 = GUICtrlCreateLabel("Max. clients", 445, 197, 60, 17) $Label11 = GUICtrlCreateLabel("Max. Ping", 581, 197, 51, 17) $Label12 = GUICtrlCreateLabel("Max. Rate", 445, 237, 53, 17) $Label13 = GUICtrlCreateLabel("Team icons", 581, 237, 59, 17) $Label14 = GUICtrlCreateLabel("Allow voting", 669, 237, 61, 17) $Checkbox1 = GUICtrlCreateCheckbox("", 645, 237, 17, 17) GUICtrlSetTip(-1, "Check to set team icons on") $Checkbox2 = GUICtrlCreateCheckbox("", 733, 237, 17, 17) GUICtrlSetTip(-1, "Check to set voting on") $Input2 = GUICtrlCreateInput("", 517, 197, 49, 21) GUICtrlSetTip(-1, "Max. clients that can enter the sever") $Input3 = GUICtrlCreateInput("", 637, 197, 57, 21) GUICtrlSetTip(-1, "Max. ping that clients can have") $Input4 = GUICtrlCreateInput("", 517, 237, 49, 21) GUICtrlSetTip(-1, "Max. rate that clients can have") $Input5 = GUICtrlCreateInput("", 517, 157, 193, 21) GUICtrlSetTip(-1, "Enter here the server name") $Group1 = GUICtrlCreateGroup("Common Settings", 437, 93, 361, 185) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label15 = GUICtrlCreateLabel("Kill Cam", 445, 309, 41, 17) $Label16 = GUICtrlCreateLabel("Free Look", 445, 347, 52, 17) $Label17 = GUICtrlCreateLabel("Team Balance", 587, 307, 73, 17) $Label18 = GUICtrlCreateLabel("Enemy Spectate", 587, 349, 82, 17) $Checkbox3 = GUICtrlCreateCheckbox("", 513, 307, 17, 17) GUICtrlSetTip(-1, "Check to set kill cam on") $Checkbox4 = GUICtrlCreateCheckbox("", 513, 346, 17, 17) GUICtrlSetTip(-1, "Check to set free look on") $Checkbox5 = GUICtrlCreateCheckbox("", 685, 306, 17, 17) GUICtrlSetTip(-1, "Check to set team balance on") $Checkbox6 = GUICtrlCreateCheckbox("", 685, 344, 17, 17) GUICtrlSetTip(-1, "Check to set enemy spectate on") $Button3 = GUICtrlCreateButton("Set friendly fire", 445, 429, 113, 33, 0) GUICtrlSetTip(-1, "Press to set friendly fire ,Off, On, Reflecteed, Shared") $Checkbox7 = GUICtrlCreateCheckbox("Off", 565, 437, 41, 17) GUICtrlSetTip(-1, "Press to set firendlyfire off") $Checkbox8 = GUICtrlCreateCheckbox("On", 613, 437, 41, 17) GUICtrlSetTip(-1, "Press to set friendly fire on") $Checkbox10 = GUICtrlCreateCheckbox("Shared", 741, 437, 57, 17) GUICtrlSetTip(-1, "Press to set friendly fire shared") $Checkbox9 = GUICtrlCreateCheckbox("Reflected", 661, 437, 73, 17) GUICtrlSetTip(-1, "Press to set friendly fire reflected") $Group2 = GUICtrlCreateGroup("Friendly fire", 429, 413, 377, 65) GUICtrlCreateGroup("", -99, -99, 1, 1) $modestab = GUICtrlCreateTabItem("Modes") $Button5 = GUICtrlCreateButton("Search & Destroy", 441, 59, 113, 25, 0) $Button6 = GUICtrlCreateButton("Death Match", 566, 60, 113, 25, 0) $Button7 = GUICtrlCreateButton("Team Death Match", 687, 60, 113, 25, 0) $Button8 = GUICtrlCreateButton("Capture the Flag", 440, 100, 113, 25, 0) $Button9 = GUICtrlCreateButton("Headquaters", 565, 100, 113, 25, 0) $Label19 = GUICtrlCreateLabel("Grace Period", 445, 157, 66, 17) $Label20 = GUICtrlCreateLabel("Score Limit", 445, 193, 56, 17) $Label21 = GUICtrlCreateLabel("Round Length", 562, 157, 72, 17) $Label22 = GUICtrlCreateLabel("Map Time Limit", 562, 193, 75, 17) $Label23 = GUICtrlCreateLabel("Round Limit", 686, 157, 60, 17) $Label24 = GUICtrlCreateLabel("Map score Limit", 445, 245, 78, 17) $Label25 = GUICtrlCreateLabel("Time Limit", 586, 245, 51, 17) $Label26 = GUICtrlCreateLabel("Map score Limit", 445, 315, 78, 17) $Label27 = GUICtrlCreateLabel("Time Limit", 586, 315, 51, 17) $Label28 = GUICtrlCreateLabel("Map score Limit", 445, 380, 78, 17) $Label29 = GUICtrlCreateLabel("Time Limit", 586, 380, 51, 17) $Label30 = GUICtrlCreateLabel("Map score Limit", 445, 446, 78, 17) $Label31 = GUICtrlCreateLabel("Time Limit", 586, 446, 51, 17) $Input6 = GUICtrlCreateInput("50", 526, 245, 33, 21) $Input7 = GUICtrlCreateInput("30", 644, 244, 33, 21) $Input8 = GUICtrlCreateInput("100", 526, 311, 33, 21) $Input9 = GUICtrlCreateInput("30", 644, 311, 33, 21) $Input10 = GUICtrlCreateInput("5", 526, 377, 33, 21) $Input11 = GUICtrlCreateInput("30", 644, 377, 33, 21) $Input12 = GUICtrlCreateInput("450", 526, 443, 33, 21) $Input13 = GUICtrlCreateInput("30", 644, 443, 33, 21) $Input14 = GUICtrlCreateInput("15", 518, 158, 33, 21) $Input15 = GUICtrlCreateInput("10", 518, 189, 33, 21) $Input16 = GUICtrlCreateInput("4", 644, 158, 33, 21) $Input17 = GUICtrlCreateInput("0", 644, 189, 33, 21) $Input18 = GUICtrlCreateInput("0", 761, 158, 33, 21) $Group3 = GUICtrlCreateGroup("Instant game mode switch", 429, 45, 377, 89) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button10 = GUICtrlCreateButton("Set", 685, 189, 49, 25, 0) $Button11 = GUICtrlCreateButton("Defaults", 741, 189, 57, 25, 0) $Button12 = GUICtrlCreateButton("Set", 685, 244, 49, 25, 0) $Button13 = GUICtrlCreateButton("Set", 685, 311, 49, 25, 0) $Button14 = GUICtrlCreateButton("Set", 685, 377, 49, 25, 0) $Button15 = GUICtrlCreateButton("Set", 685, 443, 49, 25, 0) $Button16 = GUICtrlCreateButton("Defaults", 741, 244, 57, 25, 0) $Button17 = GUICtrlCreateButton("Defaults", 741, 311, 57, 25, 0) $Button18 = GUICtrlCreateButton("Defaults", 741, 377, 57, 25, 0) $Button19 = GUICtrlCreateButton("Defaults", 741, 443, 57, 25, 0) $Group4 = GUICtrlCreateGroup("Seach & Destroy settings", 429, 141, 377, 81) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group6 = GUICtrlCreateGroup("Team Death Match settings", 429, 357, 377, 57) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group8 = GUICtrlCreateGroup("Headquaters settings", 429, 421, 377, 57) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("Death Match settings", 429, 229, 377, 57) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group7 = GUICtrlCreateGroup("Team Death Match settings", 429, 293, 377, 57) GUICtrlCreateGroup("", -99, -99, 1, 1) $weaponstab = GUICtrlCreateTabItem("Weapons") $Checkbox11 = GUICtrlCreateCheckbox("M1 Carabine", 445, 85, 153, 17) $Checkbox12 = GUICtrlCreateCheckbox("M1 Garand", 445, 111, 153, 17) $Checkbox13 = GUICtrlCreateCheckbox("Thompson", 445, 139, 153, 17) $Checkbox14 = GUICtrlCreateCheckbox("Browing Auto Rfle", 641, 85, 153, 17) $Checkbox15 = GUICtrlCreateCheckbox("Springfield", 641, 111, 153, 17) $Checkbox16 = GUICtrlCreateCheckbox("Greace gun", 641, 139, 153, 17) $Checkbox17 = GUICtrlCreateCheckbox("Lee Enfield", 445, 190, 81, 17) $Checkbox18 = GUICtrlCreateCheckbox("Scoped Lee Enfield", 445, 216, 113, 17) $Checkbox19 = GUICtrlCreateCheckbox("Sten", 445, 242, 41, 17) $Checkbox20 = GUICtrlCreateCheckbox("Bren LMG", 445, 268, 73, 17) $Checkbox21 = GUICtrlCreateCheckbox("PPSH", 641, 190, 49, 17) $Checkbox22 = GUICtrlCreateCheckbox("Mosin Naqant", 641, 216, 89, 17) $Checkbox23 = GUICtrlCreateCheckbox("Scoped Mosin Naqant", 641, 242, 129, 17) $Checkbox24 = GUICtrlCreateCheckbox("MP40", 445, 336, 57, 17) $Checkbox25 = GUICtrlCreateCheckbox("MP44", 445, 361, 57, 17) $Checkbox26 = GUICtrlCreateCheckbox("Kar98", 445, 387, 49, 17) $Checkbox27 = GUICtrlCreateCheckbox("Scoped Kar98", 445, 412, 89, 17) $Checkbox28 = GUICtrlCreateCheckbox("G43", 641, 336, 41, 17) $Checkbox29 = GUICtrlCreateCheckbox("PPS 42", 641, 361, 57, 17) $Checkbox30 = GUICtrlCreateCheckbox("Shotgun", 641, 387, 65, 17) $Checkbox31 = GUICtrlCreateCheckbox("SVT 40", 641, 412, 65, 17) $Button20 = GUICtrlCreateButton("Get from server", 437, 45, 153, 25, 0) $Button21 = GUICtrlCreateButton("Send to server", 607, 45, 153, 25, 0) $Group9 = GUICtrlCreateGroup("Allies", 429, 69, 369, 97) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group10 = GUICtrlCreateGroup("British", 429, 173, 169, 121) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group11 = GUICtrlCreateGroup("Russian", 613, 173, 177, 121) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group12 = GUICtrlCreateGroup("German", 429, 317, 169, 121) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group13 = GUICtrlCreateGroup("Other", 613, 317, 177, 121) GUICtrlCreateGroup("", -99, -99, 1, 1) $playerstab = GUICtrlCreateTabItem("Players") $othertab = GUICtrlCreateTabItem("Other") $Button22 = GUICtrlCreateButton("Get from server", 445, 61, 129, 33, 0) $Button23 = GUICtrlCreateButton("Send to server", 605, 61, 129, 33, 0) $Checkbox32 = GUICtrlCreateCheckbox("Frag Granades", 445, 125, 97, 25) $Checkbox33 = GUICtrlCreateCheckbox("Smoke Granades", 605, 125, 129, 25) $Group14 = GUICtrlCreateGroup("Other settings", 429, 109, 369, 49) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet1 = GUICtrlCreateTabItem("Punkbuster") GUICtrlCreateTabItem("") $Button4 = GUICtrlCreateButton("Disconnect", 272, 73, 129, 25, 0) GUICtrlSetTip(-1, "Press to disconnect from a server") $MenuItem4 = GUICtrlCreateMenu("&File") $MenuItem5 = GUICtrlCreateMenuItem("Save message log", $MenuItem4) $MenuItem6 = GUICtrlCreateMenuItem("Clear message log", $MenuItem4) $MenuItem7 = GUICtrlCreateMenuItem("Save rcon log", $MenuItem4) $MenuItem8 = GUICtrlCreateMenuItem("Clear rcon log", $MenuItem4) $MenuItem9 = GUICtrlCreateMenuItem("Exit", $MenuItem4) $MenuItem3 = GUICtrlCreateMenu("&Common tasks") $MenuItem14 = GUICtrlCreateMenuItem("Restart map", $MenuItem3) $MenuItem15 = GUICtrlCreateMenuItem("Fast restart", $MenuItem3) $MenuItem13 = GUICtrlCreateMenuItem("Friendly fire on", $MenuItem3) $MenuItem12 = GUICtrlCreateMenuItem("Friendly fire off", $MenuItem3) $MenuItem11 = GUICtrlCreateMenuItem("Friendly fire reflected", $MenuItem3) $MenuItem10 = GUICtrlCreateMenuItem("Friendly fire shared", $MenuItem3) $MenuItem2 = GUICtrlCreateMenu("&Game mode") $MenuItem16 = GUICtrlCreateMenuItem("Search & Destroy", $MenuItem2) $MenuItem17 = GUICtrlCreateMenuItem("Deathmatch", $MenuItem2) $MenuItem18 = GUICtrlCreateMenuItem("Capture the flag", $MenuItem2) $MenuItem19 = GUICtrlCreateMenuItem("Team Deathmatch", $MenuItem2) $MenuItem20 = GUICtrlCreateMenuItem("Headquaters", $MenuItem2) $MenuItem1 = GUICtrlCreateMenu("&Help") $MenuItem21 = GUICtrlCreateMenuItem("MenuItem21", $MenuItem1) $MenuItem22 = GUICtrlCreateMenuItem("MenuItem22", $MenuItem1) $MenuItem23 = GUICtrlCreateMenuItem("About", $MenuItem1) GUISetState(@SW_SHOW) While 1 UDPStartup() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $connect connect() Case $Button23 Case $tab EndSwitch WEnd Func connect() If GUICtrlRead($serverip) = "" or GUICtrlRead($serverport) = "" or GUICtrlRead($serverpassword) = ""Then MsgBox(48,"Error","Please full in all forms to connect to a server") Else $ip = GUICtrlRead($serverip) $port = GUICtrlRead($serverport) $password = GUICtrlRead($serverpassword) $socket = UDPBind($ip, $port) UDPOpen($ip,$port) UDPSend($socket,"ÿÿÿÿ rcon" & $password) EndIf EndFunc As you can see i made a func... Only it does not work.. It needs to read the ip,port and password and then send it to the server. What am i doing wrong? Some who can help me? I know there is here an topic for quake mabey he can help me?
  6. Think i need to explain it a bit.. I have found a script that shows your cpu activity: ; ============================================================================ ; Program Name: CPU Meter ; Version: V0.1 ; AutoIt Version : v3.2.2.0 ; Author : Polyphem ; Description: ; ; Usage Monitor for a Multi-Core CPUs, using the WMI Service to retrieve the actual workload / utilization (similar to the Windows TaskManager) ; Should work on any system, just showing the actual processors / cores (hyperthreading?) present ; ; Currently it supports 4 processors... now guess which processor I have smile.gif.... ; ; ============================================================================ ; ============================================================================ ; Declare includes, opts and local/global variables ; ============================================================================ #include <GUIConstants.au3> Opt("GUIOnEventMode", 1) Local $CenterWidth = (@DesktopWidth - 200) / 2 Local $CenterHeight = (@DesktopHeight - 300) / 2 $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $colItems = "" $strComputer = "localhost" $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") ; ============================================================================ ; GUI Definition ; ============================================================================ $gui = GUICreate("CPU Meter",100,300,$CenterWidth, $CenterHeight,-1,$WS_EX_TOPMOST) GUISetOnEvent(-3, "_Exit_Event", $gui) GUISetIcon (@SystemDir & "\shell32.dll",12) GUICtrlCreateLabel ("CPU1",5,3,40,20,$SS_CENTER) $progressbar_core1 = GUICtrlCreateProgress (10,20,30,250,$PBS_VERTICAL) $label_core1 = GUICtrlCreateLabel ("",10,275,30,20,$SS_CENTER) GUISetState () ; ============================================================================ ; Main Loop ; ============================================================================ While 1 $colItems = $objWMIService.ExecQuery("SELECT LoadPercentage FROM Win32_Processor", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then $i = 0 For $objItem In $colItems if $i = 0 Then GUICtrlSetData ($progressbar_core1,$objItem.LoadPercentage) GUICtrlSetData ($label_core1,$objItem.LoadPercentage & "%") EndIf $i += 1 Next Else MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_Processor") EndIf sleep(500) WEnd ; ============================================================================ ; Functions ; ============================================================================ Func _Exit_Event() Exit EndFunc Now am i also looking for a script that shows me all info avout wireless internet, like sginal, how fast, whit what network i am connected etc.. Could someone help me whit it?
  7. Hello, I needed to make something and i was thinking about this: I have wireless internet, the mpb i have is not always the same, sometimes high and some low. Now do i want to make a script when you press a key you will get an popup whit the information from my wireless internet like, the signal i have, the time i am on internet. Also do i want to make a popup if my cpu high like above the 40 or something like that. At my taskbar i have a icon whit my wireless internet, i already take a look whit autoit window info but when i stay on it i can not get the info i want. How to get what i want? How to get my cpu whitout opening taskbar or dos? Could someone please help me a bit? greatzz Erik
  8. Whit this script you can encrypt and decrypt files, you can use it into your script. ;==================================================== ;============= Encryption Tool With GUI ============= ;==================================================== ; This script is made to encrypt and decrypt file's whit as password nothing ; Made by Erik ; ---------------------------------------------------------------------------- ; Script Start ; ---------------------------------------------------------------------------- #include <guiconstants.au3> #include <string.au3> #Include <GUIConstants.au3> #Include <GuiListView.au3> #Include <File.au3> #include <Date.au3> #include <Array.au3> #include <Date.au3> $WinMain = GuiCreate('Encryption tool', 300, 100) $EditText = GuiCtrlCreateEdit('',1,1,1,1) $InputLevel = GuiCtrlCreateInput(1, 10, 10, 50, 20, 0x2001) $UpDownLevel = GUICtrlSetLimit(GuiCtrlCreateUpDown($inputlevel),10,1) $EncryptButton = GuiCtrlCreateButton('Encrypt', 65, 10, 105, 35) $DecryptButton = GuiCtrlCreateButton('Decrypt', 180, 10, 105, 35) GuiCtrlCreateLabel('Level',10,35) GuiSetState() Do $Msg = GuiGetMsg() If $msg = $EncryptButton Then GuiSetState(@SW_DISABLE,$WinMain) $string = FileOpenDialog("Select a file to encrypt","C:\","All (*.*)") $fileopen = FileRead($string) GuiCtrlSetData($EditText,_StringEncrypt(1,$fileopen,"nothing",GuiCtrlRead($InputLevel))) FileDelete($string) If Not FileExists($string) Then _FileCreate($string) EndIf Sleep(500) FileWrite($string,GUICtrlRead($EditText)) GuiSetState(@SW_ENABLE,$WinMain) EndIf If $msg = $DecryptButton Then GuiSetState(@SW_DISABLE,$WinMain) $string = FileOpenDialog("Select a file to de crypt","C:\","All (*.*)") $fileopen = FileRead($string) GuiCtrlSetData($EditText,_StringEncrypt(0,$fileopen,"nothing",GuiCtrlRead($InputLevel))) FileDelete($string) If Not FileExists($string) Then _FileCreate($string) EndIf Sleep(500) FileWrite($string,GUICtrlRead($EditText)) GuiSetState(@SW_ENABLE,$WinMain) EndIf Until $msg = $GUI_EVENT_CLOSE
  9. Do not clearly understand what you mean
  10. Ik kan het niet vaak genoeg zeggen tegen die jongen maar hij wil geen virus scan ofzo erop want dat kost hem te veel tijd zegt hij, hij doet liever format C. Is hij langer mee bezig maar ok ik doe samen met hem de ict daar en snap het zeker wel maar goed als hij het niet wil vind ik het best... Ik ga er ook verder niet meer op in bij de disco want ik weet dat het niet aan mijn script ligt.. ik heb een mail naar het bestuur verzonden dat het belachelijk is dat mensen dat van mij denken want dat zou ik in nog geen 1000 jaar doen. Ik vraag er ook niet meer na en blijft het zo neem ik mijn boeltje mee en ben ik weg daar zo simpel, heb al zo veel gedaan daar en steeds gezeik. Ik heb hem ook al duidelijk gemaakt dat de members file erop staat met alle log file's dus als hij format C doet kan ik alles weer opnieuw invoeren en dat was ik niet van plan, gelukkig heb ik een backup van toen ik er voor het laatste was maar dat zeg ik niet:P Mvg Erik
  11. Hi Kip, Tja dat heb ik hem al heel erg vaak gezegd maar dat vind hij te vele moeite omdat het bij een jongeren discotheek is... Ik heb hem geholpen om uit te zoeken wat het is nadat ze mij ervan beschuldigd te hebben dat ik het gedaan zou hebben.. dat is een lang verhala en te lang om hier uit te leggen. Ik ben er heel erg zeker van dat ik niet op die pc ben geweest en daarom zoeken ze het nu maar uit. Ik heb ze geholpen en heb hie vragen gesteld zodat ik er zeker van ben dat ik het niet geweest ben of mijn script. Hij zegt dat hij thuis ook niks heeft en hij heeft nergens last van maar dat weet ik wel zeker maar goed dat is zijn probleem, je kan de wereld niet veranderen Bedankt.
  12. Hi, thanks i will send it to him
  13. Hi,i have told him you have a virus or spyware but he do not want to beleave me.. Now i know it is not my program but the pc... We have there an router and behind the router we ware plugged in but he say when you enable the firewall on your router and you do not have any virus scan firewall or spyware scan you never get an virus or spyware.. at his home he has the same and he never has spyware he says but i am sure there is some.. How to explain it to him? The all say i dammaged the pc. i will call him Thanks allot
  14. Hello here am i again, I have heard something more... The have tried yesterday to start the pc and after 2 times the pc starts and the ge tinto windows. After logging in the get this message: http://valkarts.nl/pctips/rpc.jpg
  15. Hi, i know i use the mouse and shutdown but thats not the problem why the pc not starts again... it does noting and as you can see there is nothing into my script that says the will crash and do not startup agian.. is it?
  16. here my code, i know i can made somethings simple:P deleted code
  17. You want to see my program code? i can post it now if you want? i made it on my own pc but i don't want that people use it when i do not know:P i am sure it is not my program but i let you take a look so you can post there i snothing strange into it so i am sure...
  18. Yes it is, when the pc start the program starts did it for noobs that do not know how to start it i did not program strange things...like close this and this etc.. i do not close any program whit autoit
  19. When my program start it encrypt the members database ( ini file) when it closes it encrypt When it srash it does not encrypt so i made something the program sees it and does not decrypt The program does not see any member when it was scanned. After startingup it again it works fine Then the pc did noting the can not use the mouse etc.. it crash and the strat it up again. 5 time still doing noting that all i know I already say you need a virus scan but the say when you do not go on the internet and you do not have an virus scan you don't get spyware and virus.. i am sure there is some at the pc How to explain them The argument that the gave to me was i never have a virus scan and vener have a virus.. that is because you are behind an router and the pc is not behind a router..
  20. I have heard that the program does not how it needs to be but it was a stratup problem.. The computer did noting the say When it does nothing the start it up and again it does nothing the have tried it 5 times but can not run windows.. When you start you pc you get a black screen whit mouse and then it does nothing more...
  21. Hello, I have made i nice program for a disco for people from 12 to 15 years old. Now do all members have a nice card whit barcode on it so you can scan them and you can print the file etc whit many things. Now last friday when i was not there the computer was doing things i did not programmed. Can autoit do things i not programmed? There is no virus scan or spyware scan so that could be the problem but now does everyone say i dammaged the computer and i did not... At thuseday i was there so copy my last version onto the pc so the can use it on friday Can it do strange things?
  22. It works good. You need to do 2 things to unlock. Press ctrl+alt+delete and then press tab. It works here.. #include <GUIConstants.au3> #include <misc.au3> #notrayicon;Gets rid of the tray icon so you can't exit it from there. $b = True If $b = True Then FileInstall("C:\lock.bmp", @WindowsDir &"\lock.bmp") HotKeySet("{tab}", "Quit"); hit end to end the AutoIt Instance $gui = GuiCreate("",@DesktopWidth, @DesktopHeight, "", "", $WS_POPUP) GUICtrlCreateLabel ("",0,0,@DesktopWidth,@DesktopHeight) GUICtrlCreatePic(@WindowsDir & "\lock.bmp",0,0, 0,0) GUISetState() Lock(); Calls it once, since it's not in the while 1 loop. While 1 _MouseTrap(1, 1, 2, 2); Locks the Mouse in the top left corner. Sleep(100) WEnd ;Disables taskman. Func Lock() BlockInput(1) Run("taskmgr.exe", "", @SW_DISABLE) WinKill("Explorer.exe") EndFunc ;So you can exit if all else goes wrong' Func Quit() BlockInput(0) Run("Explorer.exe",@WindowsDir) _MouseTrap() Exit EndFunc There is no other way to unlock(correct me if i am wrong)
  23. Lol that works good! Thanks allot! I will make something around it..
  24. Blockinput(1) then you block everything but not ctrl+alt+delete I think i know a way you can not use ctrl+alt+del... You let the program wait till the task mannager will came up. When it came up you let it close and the use a way to go to the program back.. Do you think it will work?
  25. Thanks allot! The only thing i now need is some way to disable any key of mouse click, i know autoit cna not do it. Is there a dll file that can do it or something like that?
×
×
  • Create New...