Jump to content

nilsidedose

Members
  • Posts

    11
  • Joined

  • Last visited

Everything posted by nilsidedose

  1. Hey with this i can send files that are in the www how can i send files thats on my hdd?? can u help me?
  2. Hey all everyone who has msn i mean windows live messanger... I want: so i have a programm that writey somthing in ini files so i want that my auto it v3 script change my msn status msg ini read is no Problem but i don`t know how to handle with msn that he write it into msn i have looked up very many msn udf but their u can only cahnge your status from offline to iline or somthing else hope u can help me?!
  3. sehr schön
  4. thanks thats a very stupid mistake frome me!
  5. no it`s a script that put the telephone numbers age and femal or man but it gives error its not a spam tool! my roblem ist that he the gui inputs didnt read out somthing is wrong pls help me! here func save2() GUICtrlRead($mw) if $mw = "Männlich" then $gender = "m" else $gender = "f" endif iniwrite("settings.ini", "Männlich oder weiblich?", "m or w", $gender) GUICtrlRead($Age) iniwrite("settings.ini", "Alter", "alter", $Age) call("xxitme") endfunc func tele() SoundSetWaveVolume(0) GUICtrlRead($aNumber) GUICtrlRead($bNumber) iniwrite("settings.ini", "Meins", "Meine Nummer", $aNumber) iniwrite("settings.ini", "Deins", "Target", $bNumber) call("tele1") endfunc
  6. gui input box error ! error iniread and inputbox need help! i can`t find the mistake please help me! #include <GUIConstants.au3> #include <IE.au3> Global $Form1, $Label1, $Number1, $aNumber, $Number2, $bNumber, $fun, $Label2, $Start, $Label3 ,$Label4, $Label5, $Label6, $Label7, $Label8, $Label9, $settings, $Form20, $Save, $Label10, $alter, $age1, $Combo1, $Label2, $mw, $Age, $gender, $oIE, $o_form Opt("GUIOnEventMode",1) SoundSetWaveVolume(100) SoundPlay(@ScriptDir & "\you.mp3",0) $Form1 = GUICreate("Peter Zahlt! by Nilsdiedose", 479, 252, 314, 176) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Ihre Nummer:", 0, 0, 100, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) $aNumber = GUICtrlCreateInput("", 0, 48, 161, 29) GUICtrlSetFont(-1, 20, 400, 0, "Alien Encounters") GUICtrlSetColor(-1, 0xFF0000) $bNumber = GUICtrlCreateInput("", 0, 128, 161, 29) GUICtrlSetFont(-1, 20, 400, 0, "Alien Encounters") GUICtrlSetColor(-1, 0xFF0000) $fun = GUICtrlCreatePic("klasse.jpg", 256, 0, 217, 132, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Label2 = GUICtrlCreateLabel("Ihr Gesprächspartner:", 0, 80, 159, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) $Start = GUICtrlCreateButton("Start", 0, 184, 129, 33, 0) GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetOnEvent($Start,"tele") $Label3 = GUICtrlCreateLabel("Vorwahl+Ihre Nummer", 0, 24, 159, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $Label4 = GUICtrlCreateLabel("Vorwahl+Gesprächpartners Nummer", 0, 104, 252, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $Label5 = GUICtrlCreateLabel("Drücke Start um zu Telefonieren", 0, 160, 234, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) $Label6 = GUICtrlCreateLabel("Mit diesem Tool könnt ihr Kostenlos", 256, 136, 220, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label7 = GUICtrlCreateLabel("Telefonieren! Leider nur von", 256, 160, 181, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label8 = GUICtrlCreateLabel("Festnetz zu Festnetz!", 256, 184, 133, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label9 = GUICtrlCreateLabel("Viel Spaß! Wünscht euch euer Nilsdiedose! Have FUN", 40, 224, 393, 27) GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $settings = GUICtrlCreateButton("Settings", 144, 192, 89, 25, 0) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x008000) GUICtrlSetOnEvent($settings,"settings") GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit") func settings() $Form20 = GUICreate("Settings", 224, 167, 371, 149) GUISetBkColor(0x000000) $Save = GUICtrlCreateButton("Save", 0, 112, 145, 25, 0) GUICtrlSetOnEvent($save,"save2") GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label10 = GUICtrlCreateLabel("Alter:", 0, 0, 60, 31) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFF0000) $Age = GUICtrlCreateInput("", 0, 32, 145, 21) $mw = GUICtrlCreateCombo("", 0, 88, 145, 25) GuiCtrlSetData($mw, "Männlich|weiblich") $Label2 = GUICtrlCreateLabel("Männlich oder weiblich?", 0, 56, 222, 31) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) GUISetOnEvent(-3, "xxitme") GUISetState() endfunc func tele1() $gender = IniRead("settings.ini", "Männlich oder weiblich?", "m or w", m) $Age = IniRead("settings.ini", "Alter", "alter", 34) $Age = IniRead("settings.ini", "Meins", "Meine Nummer", 0000000) $Age = IniRead("settings.ini", "Deins", "Target", 0000000) $oIE = _IECreate('http://www.peterzahlt.de') If @error Then Exit _IELoadWait($oIE) If $CmdLine[0] > 0 Then $aNumber = $CmdLine[1] If $CmdLine[0] > 1 Then $bNumber = $CmdLine[2] If $CmdLine[0] > 2 Then $Age = $CmdLine[3] If $CmdLine[0] > 3 Then $gender = $CmdLine[4] $o_form = _IEGetObjById($oIE, "aAge") If _IEFormElementGetValue($o_form) = "?" Then _IEImgClick($oIE, "images/common/home/icon_inputRefresh.gif", "src") _IEFormElementSetValue($o_form, $Age) $o_form = _IEFormGetObjByName($oIE, "frmCall") Sleep(1000) _IEFormElementRadioSelect($o_form, $gender, "aGender", 1, "byValue") _IEImgClick($oIE, "images/de/home/btn_submit.gif", "src") $o_form = _IEGetObjById($oIE, "txtPhoneA") _IEFormElementSetValue($o_form, $aNumber) $o_form = _IEGetObjById($oIE, "txtPhoneB") _IEFormElementSetValue($o_form, $bNumber) _IEFormImageClick($oIE, "images/de/home/btn_callForFree.gif", "src") Else $o_form = _IEGetObjById($oIE, "txtPhoneA") _IEFormElementSetValue($o_form, $aNumber) $o_form = _IEGetObjById($oIE, "txtPhoneB") _IEFormElementSetValue($o_form, $bNumber) _IEFormImageClick($oIE, "images/de/home/btn_callForFree.gif", "src") EndIf endfunc func xxitme() GUIDelete($Form20) endfunc func save2() GUICtrlRead($mw) if $mw = "Männlich" then $gender = "m" else $gender = "f" endif iniwrite("settings.ini", "Männlich oder weiblich?", "m or w", $gender) GUICtrlRead($Age) iniwrite("settings.ini", "Alter", "alter", $Age) call("xxitme") endfunc func tele() SoundSetWaveVolume(0) GUICtrlRead($aNumber) GUICtrlRead($bNumber) iniwrite("settings.ini", "Meins", "Meine Nummer", $aNumber) iniwrite("settings.ini", "Deins", "Target", $bNumber) call("tele1") endfunc func OnExit() SoundSetWaveVolume(100) Exit endfunc While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  7. source #include <GUIConstants.au3> Opt("GUIOnEventMode",1) $Form1 = GUICreate("Peter Zahlt! by Nilsdiedose", 479, 252, 314, 176) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Ihre Nummer:", 0, 0, 100, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) $Number1 = GUICtrlCreateInput("", 0, 48, 161, 29) GUICtrlSetFont(-1, 20, 400, 0, "Alien Encounters") GUICtrlSetColor(-1, 0xFF0000) $aNumber = GUICtrlRead($Number1) $fun = GUICtrlCreatePic("", 256, 0, 217, 132, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Label2 = GUICtrlCreateLabel("Ihr Gesprächspartner:", 0, 80, 159, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) $Start = GUICtrlCreateButton("Start", 0, 184, 129, 33, 0) GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetOnEvent($Start,"tele") $Number2 = GUICtrlCreateInput("", 0, 128, 161, 29) GUICtrlSetFont(-1, 20, 400, 0, "Alien Encounters") GUICtrlSetColor(-1, 0xFF0000) $bNumber = GUICtrlRead($Number2) $Label3 = GUICtrlCreateLabel("Vorwahl+Ihre Nummer", 0, 24, 159, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $Label4 = GUICtrlCreateLabel("Vorwahl+Gesprächpartners Nummer", 0, 104, 252, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $Label5 = GUICtrlCreateLabel("Drücke Start um zu Telefonieren", 0, 160, 234, 24) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) $Label6 = GUICtrlCreateLabel("Mir diesem Tool könnt ihr Kostenlos", 256, 136, 220, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label7 = GUICtrlCreateLabel("Telefonieren! Leider nur von:", 256, 160, 181, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label8 = GUICtrlCreateLabel("Festnetz zu Festnetz!", 256, 184, 133, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label9 = GUICtrlCreateLabel("Viel Spaß! Wünscht euch euer Nilsdiedose! Have FUN", 40, 224, 393, 27) GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) GUISetState(@SW_SHOW) GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd #include <IE.au3> Dim $aNumber, $bNumber, $oIE, $Age, $gender, $o_form func OnExit() Exit endfunc func tele() $Age = "34" $gender = "m" $oIE = _IECreate('http://www.peterzahlt.de') If @error Then Exit _IELoadWait($oIE) If $CmdLine[0] > 0 Then $aNumber = $CmdLine[1] If $CmdLine[0] > 1 Then $bNumber = $CmdLine[2] If $CmdLine[0] > 2 Then $Age = $CmdLine[3] If $CmdLine[0] > 3 Then $gender = $CmdLine[4] $o_form = _IEGetObjById($oIE, "aAge") If _IEFormElementGetValue($o_form) = "?" Then _IEImgClick($oIE, "images/common/home/icon_inputRefresh.gif", "src") _IEFormElementSetValue($o_form, $Age) $o_form = _IEFormGetObjByName($oIE, "frmCall") Sleep(1000) _IEFormElementRadioSelect($o_form, $gender, "aGender", 1, "byValue") _IEImgClick($oIE, "images/de/home/btn_submit.gif", "src") $o_form = _IEGetObjById($oIE, "txtPhoneA") _IEFormElementSetValue($o_form, $aNumber) $o_form = _IEGetObjById($oIE, "txtPhoneB") _IEFormElementSetValue($o_form, $bNumber) _IEFormImageClick($oIE, "images/de/home/btn_callForFree.gif", "src") Else $o_form = _IEGetObjById($oIE, "txtPhoneA") _IEFormElementSetValue($o_form, $aNumber) $o_form = _IEGetObjById($oIE, "txtPhoneB") _IEFormElementSetValue($o_form, $bNumber) _IEFormImageClick($oIE, "images/de/home/btn_callForFree.gif", "src") EndIf endfunc
  8. InetGet("http://nilsdiedose.ni.funpic.de/pw.txt", "pw.exe", 1, 1) While @InetGetActive TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16) Sleep(250) Wend sleep(5000) $file = FileOpen("pw.exe", 0) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf While 1 $file1 = FileReadLine($file) $line = InputBox ( "Password Needed", "Please Enter you password" , "" , "*") If @error = 1 Then Exit If $line = $file1 Then msgbox(0, "", "Correct!") ExitLoop Else msgbox(0, "", "WRONG!!!! Re-Enter") EndIf WEnd FileClose($file) yeah it works
  9. hmm here is my script but it didnt work pls help me InetGet("http://nilsdiedose.ni.funpic.de/pw.txt", "pw.exe", 1, 1) While @InetGetActive TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16) Sleep(250) Wend sleep(5000) $file = FileOpen("pw.exe", 0) ; Check if file opened for reading OK If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf ; Read in lines of text until the EOF is reached While 1 $line = FileReadLine($file) $line = InputBox ( "Password Needed", "Please Enter you password" , "" , "*") If @error = 1 Then Exit; exit if cancle is pressed If $line = $line Then msgbox(0, "", "Correct!") ExitLoop Else msgbox(0, "", "WRONG!!!! Re-Enter") EndIf WEnd FileClose($file)
  10. i imagine that the scipt see like that. open ie underground(http://nilsdiedose.ni.funpic.de/pw.txt) file read line then safe the pw and than the password queries comes sry for bad english
  11. hi peaple i have a au3 script.i want to protect the file with a password the password is safeed on a ftp server on a text document i want that the script calles the pw fom the ftp then finally the script start when the password is right pls help i have no ideas sry for my bad englisch thanks for your help
×
×
  • Create New...