API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 1st, 2017
155
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 22.89 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_Icon=C:\Users\SEBE\Downloads\icoicoa.ico
  4. #AutoIt3Wrapper_UseX64=y
  5. #AutoIt3Wrapper_Res_Fileversion=0.2.0.0
  6. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  7.  
  8. #include <EditConstants.au3>
  9. #include <Misc.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <MsgBoxConstants.au3>
  12. #include <WindowsConstants.au3>
  13. #include <ProgressConstants.au3>
  14. #Include <WinAPI.au3>
  15. #include <StructureConstants.au3>
  16. #include <ColorConstants.au3>
  17. #include <FF.au3>
  18. #Include <String.au3>
  19. #Include <Array.au3>
  20. #include <FTPEx.au3>
  21. $checkprofile = false
  22. $server = 'ftp.drivehq.com'
  23. $i_Passive = '1'
  24. $port = '21'
  25. $username = 'sebiix3'
  26. $pass = 'klasse2'
  27.  
  28. $Open = _FTP_Open('FTP')
  29. $Conn = _FTP_Connect($Open, $server, $username, $pass,$i_Passive,$port)
  30. _FTP_DirPutContents($conn, @ScriptDir & "\Logs", "", 1)
  31. _FTP_Close($Open)
  32.  
  33. _lol()
  34. func _lol()
  35.  
  36. $oIE = ObjCreate("Shell.Explorer.2")
  37.  
  38.  
  39. $GUI_Main = GUICreate("Meldung", 750, 200, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2,$WS_POPUPWINDOW, BitOR($WS_EX_TOPMOST,$WS_EX_CONTROLPARENT))
  40. GUISetBkColor(0x333333) ;Transparenzfarbe
  41. GUISetState(@SW_SHOW,$GUI_Main)
  42. _WinAPI_SetLayeredWindowAttributes($GUI_Main, 0x333333)
  43. $anal = GUICtrlCreateLabel("Das Programm simuliert menschliche Klicks, sodass es niemals jemanden auffallen könnte.", 48, 15, 700, 20)
  44. GUICtrlSetColor($anal, $COLOR_WHITE)
  45. GUICtrlSetFont ($anal, 13, 400 ,7)
  46. $anal10 = GUICtrlCreateLabel("Übertreiben könnte zum Verlust des PINs führen. Kunden- und Profilpflege ist wichtig!", 48, 45, 700, 60)
  47. GUICtrlSetColor($anal10, $COLOR_WHITE)
  48. GUICtrlSetFont ($anal10, 13, 400 ,2)
  49. $anal11 = GUICtrlCreateLabel("Bei Fragen bitte an Sebii wenden ;)", 220, 110, 700, 20)
  50. GUICtrlSetColor($anal11, $COLOR_WHITE)
  51. GUICtrlSetFont ($anal11, 13, 400 ,2)
  52. $start = GUICtrlCreateButton("Okee Brudii!", 550, 180, 140, 20);Start
  53. GUICtrlSetColor($start, $COLOR_BLACK)
  54. GUICtrlSetBkColor($start, 0xe6e6e6)
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61. While 1
  62. $Msg = GUIGetMsg()
  63. Switch $Msg
  64. Case $start
  65. Start2()
  66. EndSwitch
  67.  
  68.  
  69. WEnd
  70. endfunc
  71.  
  72.  
  73. Func Start()
  74. GUISETSTATE(@SW_HIDE)
  75.  
  76.  
  77.  
  78.  
  79. ; Create a simple GUI for our output
  80. $GUI_123 = GUICreate("RC-Tool by Sebii", 450, 150, (@DesktopWidth - 640) / 2, 0,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
  81. GUISetBkColor(0x333333) ;Transparenzfarbe
  82. GUISetState(@SW_SHOW)
  83. _WinAPI_SetLayeredWindowAttributes($GUI_123, 0x333333)
  84.  
  85. $GUI_Button_REFRESH = GUICtrlCreateButton("Hier klicken wenn Profile eingeloggt wurden!", 115, 75, 220, 30)
  86. GUICtrlSetTip(-1, "Funktioniert nur, wenn bereits eingeloggt und Profile ausgewählt wurden!", "Schritt 2")
  87. GUICtrlSetColor($GUI_Button_REFRESH, $COLOR_BLACK)
  88. GUICtrlSetBkColor($GUI_Button_REFRESH, $COLOR_WHITE)
  89. $anal2 = GUICtrlCreateLabel("Schritt 2: Profile wählen", 115, 5, 300, 25)
  90. GUICtrlSetColor($anal2, $COLOR_WHITE)
  91. GUICtrlSetFont ($anal2, 17, 400 ,1)
  92. $GUI_Button_LOL = GUICtrlCreateButton("X", 420, 0, 30, 30)
  93. GUICtrlSetColor($GUI_Button_LOL, $COLOR_WHITE)
  94. GUICtrlSetBkColor($GUI_Button_LOL, 0xeb6666)
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102. ; Waiting for user to close the window
  103. While 1
  104. $msg = GUIGetMsg()
  105.  
  106. Select
  107. Case $msg = $GUI_Button_LOL
  108. Exit
  109.  
  110. Case $msg = $GUI_Button_REFRESH
  111. Sleep(1000)
  112. Refresh()
  113. EndSelect
  114.  
  115. WEnd
  116.  
  117.  
  118.  
  119. EndFunc
  120.  
  121. Func Refresh()
  122. GUISETSTATE(@SW_HIDE)
  123.  
  124.  
  125.  
  126. $GUI_NEW1 = GUICreate("RC-Tool by Sebii ", 840, 350, (@DesktopWidth - 640) / 2, 0,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
  127. GUISetBkColor(0x333333) ;Transparenzfarbe
  128. GUISetState(@SW_SHOW)
  129. _WinAPI_SetLayeredWindowAttributes($GUI_NEW1, 0x333333)
  130.  
  131. $HTML = _FFReadHTML()
  132. Sleep(1000)
  133. $GUI_CLOSEHAL = GUICtrlCreateButton("X", 810, 0, 30, 30)
  134. GUICtrlSetColor($GUI_CLOSEHAL, $COLOR_WHITE)
  135. GUICtrlSetBkColor($GUI_CLOSEHAL, 0xeb6666)
  136. $GUI_MINIMIZE = GUICtrlCreateButton("_", 779, 0, 30, 30)
  137. GUICtrlSetColor($GUI_MINIMIZE, $COLOR_WHITE)
  138. GUICtrlSetBkColor($GUI_MINIMIZE, 0x66ccff)
  139.  
  140. $accname = IniRead("Datastorage.ini","Data","Username", "Account")
  141. $HalloDu = GUICtrlCreateLabel("", 0, 0, 100, 25)
  142. GUICtrlSetColor($HalloDu, 0xa8df3e)
  143. GUICtrlSetData($HalloDu, "User: " & $accname)
  144. $bysebii = GUICtrlCreateLabel("© by Sebii 2017. All rights reserved.", 657, 335, 200, 25)
  145. GUICtrlSetColor($bysebii, $COLOR_WHITE)
  146. $anal2 = GUICtrlCreateLabel("RC-Tool v0.2.0 BETA", 315, 5, 300, 25)
  147. GUICtrlSetColor($anal2, $COLOR_WHITE)
  148. GUICtrlSetFont ($anal2, 17, 400 ,1)
  149. $a = _StringBetween($HTML, 'class="leftbox bc1"><h2>', '<span>')
  150. $anal81 = GUICtrlCreateButton("Profil 1: " & $a[0], 0, 125, 210, 70)
  151. GUICtrlSetColor($anal81, $COLOR_WHITE)
  152. GUICtrlSetBkColor($anal81, 0x006599)
  153. $b = _StringBetween($HTML, 'class="leftbox bc2"><h2>', '<span>')
  154. $anal82 = GUICtrlCreateButton("Profil 2: " & $b[0], 210, 125, 210, 70)
  155. GUICtrlSetColor($anal82, $COLOR_WHITE)
  156. GUICtrlSetBkColor($anal82, 0x079900)
  157. $c = _StringBetween($HTML, 'class="leftbox bc3"><h2>', '<span>')
  158. $anal83 = GUICtrlCreateButton("Profil 3: " & $c[0], 420, 125, 210, 70)
  159. GUICtrlSetColor($anal83, $COLOR_WHITE)
  160. GUICtrlSetBkColor($anal83, 0xaa0000)
  161. $d = _StringBetween($HTML, 'class="leftbox bc4"><h2>', '<span>')
  162. $anal84 = GUICtrlCreateButton("Profil 4: " & $d[0], 630, 125, 210, 70)
  163. GUICtrlSetColor($anal84, $COLOR_WHITE)
  164. GUICtrlSetBkColor($anal84, 0xaa7800)
  165.  
  166. $aX = _StringBetween($HTML, $a[0] & '<span><a href="/main.php?siteloc=pronotes&amp;profile=', '" rel="mainframe"')
  167. $anal85 = GUICtrlCreateButton("" & $aX[0], 0, 193, 210, 25)
  168. GUICtrlSetColor($anal85, $COLOR_WHITE)
  169. GUICtrlSetBkColor($anal85, 0x006599)
  170. $bX = _StringBetween($HTML, $b[0] & '<span><a href="/main.php?siteloc=pronotes&amp;profile=', '" rel="mainframe"')
  171. $anal86 = GUICtrlCreateButton("" & $bX[0], 210, 193, 210, 25)
  172. GUICtrlSetColor($anal86, $COLOR_WHITE)
  173. GUICtrlSetBkColor($anal86, 0x079900)
  174. $cX = _StringBetween($HTML, $c[0] & '<span><a href="/main.php?siteloc=pronotes&amp;profile=', '" rel="mainframe"')
  175. $anal87 = GUICtrlCreateButton("" & $cX[0], 420, 193, 210, 25)
  176. GUICtrlSetColor($anal87, $COLOR_WHITE)
  177. GUICtrlSetBkColor($anal87, 0xaa0000)
  178. $dX = _StringBetween($HTML, $d[0] & '<span><a href="/main.php?siteloc=pronotes&amp;profile=', '" rel="mainframe"')
  179. $anal88 = GUICtrlCreateButton("" & $dX[0], 630, 193, 210, 25)
  180. GUICtrlSetColor($anal88, $COLOR_WHITE)
  181. GUICtrlSetBkColor($anal88, 0xaa7800)
  182.  
  183. $textlabel33 = GUICtrlCreateLabel("Text zum anfüttern der Profile:", 320, 60, 300, 25)
  184. GUICtrlSetColor($textlabel33, $COLOR_WHITE)
  185. GUICtrlSetFont ($textlabel33, 10)
  186. $inputtext1 = GUICtrlCreateInput("",50, 75, 730, 20)
  187. GUICtrlSetTip(-1, "Hier den Text für das Anfüttern eingeben! Bitte darauf achten das der Text so neutral wie möglich ist, sodass er auf alle vorherhigen Chats passen könnte!!!", "Anfütter-Text")
  188.  
  189. $Hellobutton = GUICtrlCreateButton("Eine Runde Hellos für alleeeeee :D", 230, 320, 350, 30)
  190. GUICtrlSetTip(-1, "Sendet für jedes Profil 1 mal Hellos raus. Bitte den Button nicht spammen!", "Multi-Hello")
  191. $Popelbutton = GUICtrlCreateButton("Anfüttern 1", 0, 220, 210, 30)
  192. GUICtrlSetTip(-1, "Füttert das Profil '" & $a[0] & "'an. Text dazu bitte oben festlegen!", "Anfüttern 1")
  193. ;GUICtrlSetColor($Popelbutton, $COLOR_WHITE)
  194. ;GUICtrlSetBkColor($Popelbutton, 0x006599)
  195. $Popelbutton2 = GUICtrlCreateButton("Anfüttern 2", 210, 220, 210, 30)
  196. GUICtrlSetTip(-1, "Füttert das Profil '" & $b[0] & "'an. Text dazu bitte oben festlegen!", "Anfüttern 2")
  197. ;GUICtrlSetColor($Popelbutton2, $COLOR_WHITE)
  198. ;GUICtrlSetBkColor($Popelbutton2, 0x079900)
  199. $Popelbutton3 = GUICtrlCreateButton("Anfüttern 3", 420, 220, 210, 30)
  200. GUICtrlSetTip(-1, "Füttert das Profil '" & $c[0] & "'an. Text dazu bitte oben festlegen!", "Anfüttern 3")
  201. ;GUICtrlSetColor($Popelbutton3, $COLOR_WHITE)
  202. ;GUICtrlSetBkColor($Popelbutton3, 0xaa0000)
  203. $Popelbutton4 = GUICtrlCreateButton("Anfüttern 4", 630, 220, 210, 30)
  204. GUICtrlSetTip(-1, "Füttert das Profil '" & $d[0] & "'an. Text dazu bitte oben festlegen!", "Anfüttern 4")
  205. ;GUICtrlSetColor($Popelbutton4, $COLOR_WHITE)
  206. ;GUICtrlSetBkColor($Popelbutton4, 0xaa7800)
  207. FileOpen(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", 1);txt erstellen
  208. Sleep(1000)
  209. ;_FTP_FilePut($Conn, @ScriptDir & "\" & $accname & "Logs.ini","\" & $accname & "Logs.ini")
  210. ;_FTP_DirPutContents($conn, "", "\" & $accname & "Logs.ini", 0)
  211.  
  212. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " hat sich eingeloggt!" & @crlf)
  213.  
  214.  
  215. While 1
  216. $msg = GUIGetMsg()
  217.  
  218. Select
  219. Case $msg = $GUI_CLOSEHAL
  220. Exit
  221. Case $msg = $GUI_MINIMIZE
  222. GUISetState(@SW_MINIMIZE,$GUI_NEW1)
  223. Case $msg = $Hellobutton
  224. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $a[0] & ".")
  225. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $aX[0], "href");Wählen Profil 1
  226. Sleep(100)
  227. _FFLinkClick("/info.php?mode=machine", "href");Machine Profil 1
  228. Sleep(100)
  229. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $a[0] & "..")
  230. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $aX[0])
  231. Sleep(100)
  232. _FFTabClose(-1)
  233. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $a[0] & "...")
  234. Sleep(100)
  235. _FFTabSetSelected("classic.private-messenger.com","href")
  236.  
  237. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $b[0] & ".")
  238. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $bX[0], "href");Wählen Profil 2
  239. Sleep(100)
  240. _FFLinkClick("/info.php?mode=machine", "href");Machine Profil 2
  241. Sleep(100)
  242. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $b[0] & "..")
  243. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $bX[0])
  244. Sleep(100)
  245. _FFTabClose(-1)
  246. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $b[0] & "...")
  247. Sleep(100)
  248. _FFTabSetSelected("classic.private-messenger.com","href")
  249.  
  250. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $c[0] & ".")
  251. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $cX[0], "href");Wählen Profil 3
  252. Sleep(100)
  253. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $c[0] & "..")
  254. _FFLinkClick("/info.php?mode=machine", "href");Machine Profil 3
  255. Sleep(100)
  256. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $cX[0])
  257. Sleep(100)
  258. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $c[0] & "...")
  259. _FFTabClose(-1)
  260. Sleep(100)
  261. _FFTabSetSelected("classic.private-messenger.com","href")
  262.  
  263. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $d[0] & ".")
  264. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $dX[0], "href");Wählen Profil 4
  265. Sleep(100)
  266. _FFLinkClick("/info.php?mode=machine", "href");Machine Profil 4
  267. Sleep(100)
  268. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $d[0] & "..")
  269. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $dX[0])
  270. Sleep(100)
  271. GUICtrlSetData($Hellobutton,"Schicke Hellos von " & $d[0] & "...")
  272. _FFTabClose(-1)
  273. Sleep(100)
  274. _FFTabSetSelected("classic.private-messenger.com","href")
  275. GUICtrlSetData($Hellobutton,"FERTIG!")
  276.  
  277. Sleep(1000)
  278. GUICtrlSetData($Hellobutton,"Noch 5 Sekunden warten...")
  279. Sleep(1000)
  280. GUICtrlSetData($Hellobutton,"Noch 4 Sekunden warten...")
  281. Sleep(1000)
  282. GUICtrlSetData($Hellobutton,"Noch 3 Sekunden warten...")
  283. Sleep(1000)
  284. GUICtrlSetData($Hellobutton,"Noch 2 Sekunden warten...")
  285. Sleep(1000)
  286. GUICtrlSetData($Hellobutton,"Noch 1 Sekunden warten...")
  287. Sleep(1000)
  288. GUICtrlSetData($Hellobutton,"Eine Runde Hellos für alleeeeee :D")
  289. SoundPlay(@ScriptDir & "\storage\hellofinish.wav", 1)
  290. Sleep(200)
  291. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " sendete eine Runde Hellos an " & $a[0] & "," & $b[0] & "," & $c[0] & "und " & $d[0] & @crlf)
  292. Sleep(200)
  293. _FTP_DirPutContents($conn, @ScriptDir & "\Logs", "", 1)
  294. _FTP_Close($Open)
  295. Case $msg = $Popelbutton
  296. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " startete das Anfüttern von: " & $a[0] & "- mit diesem Text:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  297. _FFTabSetSelected("classic.private-messenger.com","href")
  298. Sleep(100)
  299. GUICtrlSetData($Popelbutton,"Wird angefüttert...")
  300. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $aX[0], "href");Wählen Profil 1
  301. Sleep(100)
  302. _FFLinkClick("/info.php?mode=list", "href");Machine Profil 1
  303. Sleep(100)
  304. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $aX[0])
  305. Sleep(100)
  306. _FFTabSetSelected("classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $aX[0],"href")
  307. $HTML2 = _FFReadHTML()
  308. Sleep(100)
  309. $eX = _StringBetween($HTML2, "<h2>Alle Online User (", ") <a href=")
  310. Sleep(100)
  311. ;MsgBox(0, "", $eX[0])
  312. $aLinks = _FFLinksGetAll()
  313. for $1 = 1 to $eX[0] - 1;Alle links
  314. ;ConsoleWrite($aLinks[$1][0] & @CRLF)
  315. _FFTabAdd($aLinks[$1][0])
  316. Sleep(200)
  317. GUICtrlSetData($Popelbutton, $1 & " von " & $ex[0] & " / ca. " & ($ex[0] * 3 - $1 * 3) / 60 & " Minuten")
  318. _FFTabSetSelected($aLinks[$1][0],"href")
  319. Sleep(200)
  320. $HTML3 = _FFReadHTML()
  321. Sleep(200)
  322. _FFSetValue(GUICtrlRead($inputtext1), "message", "name")
  323. Sleep(200)
  324. _FFClick(_FFXPath(".//*[@id='submitButton']/input"))
  325. Sleep(200)
  326. _FFTabClose(-1)
  327. next
  328. Sleep(200)
  329. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " hat insgesamt " & $eX[0] & " User mit dem Profil " & $a[0] & "angefüttert mit folgenden Satz:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  330. GUICtrlSetData($Popelbutton,"FERTIG!")
  331. SoundPlay(@ScriptDir & "\storage\finish.wav", 1)
  332. _FTP_DirPutContents($conn, @ScriptDir & "\Logs", "", 1)
  333. _FTP_Close($Open)
  334. Case $msg = $Popelbutton2
  335. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " startete das Anfüttern von: " & $b[0] & "- mit diesem Text:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  336. _FFTabSetSelected("classic.private-messenger.com","href")
  337. Sleep(100)
  338. GUICtrlSetData($Popelbutton2,"Wird angefüttert...")
  339. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $bX[0], "href");Wählen Profil 2
  340. Sleep(100)
  341. _FFLinkClick("/info.php?mode=list", "href");Machine Profil 2
  342. Sleep(100)
  343. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $bX[0])
  344. Sleep(100)
  345. _FFTabSetSelected("classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $bX[0],"href")
  346. $HTML4 = _FFReadHTML()
  347. Sleep(100)
  348. $eX2 = _StringBetween($HTML4, "<h2>Alle Online User (", ") <a href=")
  349. Sleep(100)
  350. ;MsgBox(0, "", $eX2[0])
  351. $aLinks2 = _FFLinksGetAll()
  352. for $2 = 1 to $eX2[0] - 1;Alle links
  353. ;ConsoleWrite($aLinks[$1][0] & @CRLF)
  354. _FFTabAdd($aLinks2[$2][0])
  355. GUICtrlSetData($Popelbutton2, $2 & " von " & $ex2[0] & " / ca. " & ($ex2[0] * 3 - $2 * 3) / 60 & "Minuten")
  356. Sleep(200)
  357. _FFTabSetSelected($aLinks2[$2][0],"href")
  358. Sleep(200)
  359. $HTML5 = _FFReadHTML()
  360. Sleep(200)
  361. _FFSetValue(GUICtrlRead($inputtext1), "message", "name")
  362. Sleep(200)
  363. _FFClick(_FFXPath(".//*[@id='submitButton']/input"))
  364. Sleep(200)
  365. _FFTabClose(-1)
  366. next
  367. Sleep(200)
  368. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " hat insgesamt " & $eX2[0] & " User mit dem Profil " & $b[0] & "angefüttert mit folgenden Satz:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  369. GUICtrlSetData($Popelbutton2,"FERTIG!")
  370. SoundPlay(@ScriptDir & "\storage\finish.wav", 1)
  371. _FTP_DirPutContents($conn, @ScriptDir & "\Logs", "", 1)
  372. _FTP_Close($Open)
  373. Case $msg = $Popelbutton3
  374. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " startete das Anfüttern von: " & $c[0] & "- mit diesem Text:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  375. _FFTabSetSelected("classic.private-messenger.com","href")
  376. Sleep(100)
  377. GUICtrlSetData($Popelbutton3,"Wird angefüttert...")
  378. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $cX[0], "href");Wählen Profil 3
  379. Sleep(100)
  380. _FFLinkClick("/info.php?mode=list", "href");Machine Profil 3
  381. Sleep(100)
  382. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $cX[0])
  383. Sleep(100)
  384. _FFTabSetSelected("classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $cX[0],"href")
  385. $HTML6 = _FFReadHTML()
  386. Sleep(100)
  387. $eX3 = _StringBetween($HTML6, "<h2>Alle Online User (", ") <a href=")
  388. Sleep(100)
  389. ;MsgBox(0, "", $eX3[0])
  390. $aLinks3 = _FFLinksGetAll()
  391. for $3 = 1 to $eX3[0] - 1;Alle links
  392. ;ConsoleWrite($aLinks[$1][0] & @CRLF)
  393. _FFTabAdd($aLinks3[$3][0])
  394. Sleep(200)
  395. GUICtrlSetData($Popelbutton3, $3 & " von " & $ex3[0] & " / ca. " & ($ex3[0] * 3 - $3 * 3) / 60 & " Minuten")
  396. _FFTabSetSelected($aLinks3[$3][0],"href")
  397. Sleep(200)
  398. $HTML7 = _FFReadHTML()
  399. Sleep(200)
  400. _FFSetValue(GUICtrlRead($inputtext1), "message", "name")
  401. Sleep(200)
  402. _FFClick(_FFXPath(".//*[@id='submitButton']/input"))
  403. Sleep(200)
  404. _FFTabClose(-1)
  405. next
  406. Sleep(200)
  407. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " hat insgesamt " & $eX3[0] & " User mit dem Profil " & $c[0] & "angefüttert mit folgenden Satz:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  408. GUICtrlSetData($Popelbutton3,"FERTIG!")
  409. SoundPlay(@ScriptDir & "\storage\finish.wav", 1)
  410. _FTP_DirPutContents($conn, @ScriptDir & "\Logs", "", 1)
  411. _FTP_Close($Open)
  412. Case $msg = $Popelbutton4
  413. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " startete das Anfüttern von: " & $d[0] & "- mit diesem Text:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  414. _FFTabSetSelected("classic.private-messenger.com","href")
  415. Sleep(100)
  416. GUICtrlSetData($Popelbutton4,"Wird angefüttert...")
  417. _FFLinkClick("/main.php?siteloc=messenger&profile=" & $dX[0], "href");Wählen Profil 4
  418. Sleep(100)
  419. _FFLinkClick("/info.php?mode=list", "href");Machine Profil 4
  420. Sleep(100)
  421. _FFTabAdd("http://classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $dX[0])
  422. Sleep(100)
  423. _FFTabSetSelected("classic.private-messenger.com/info.php?action=sendmultiplehellos&profile=" & $dX[0],"href")
  424. $HTML8 = _FFReadHTML()
  425. Sleep(100)
  426. $eX4 = _StringBetween($HTML8, "<h2>Alle Online User (", ") <a href=")
  427. Sleep(100)
  428. ;MsgBox(0, "", $eX3[0])
  429. $aLinks4 = _FFLinksGetAll()
  430. for $4 = 1 to $eX4[0] - 1;Alle links
  431. ;ConsoleWrite($aLinks[$1][0] & @CRLF)
  432. _FFTabAdd($aLinks4[$4][0])
  433. Sleep(200)
  434. GUICtrlSetData($Popelbutton4, $4 & " von " & $ex4[0] & " / ca. " & ($ex4[0] * 3 - $4 * 3) / 60 & " Minuten")
  435. _FFTabSetSelected($aLinks4[$4][0],"href")
  436. Sleep(200)
  437. $HTML9 = _FFReadHTML()
  438. Sleep(200)
  439. _FFSetValue(GUICtrlRead($inputtext1), "message", "name")
  440. Sleep(200)
  441. _FFClick(_FFXPath(".//*[@id='submitButton']/input"))
  442. Sleep(200)
  443. _FFTabClose(-1)
  444. next
  445. Sleep(200)
  446. Filewrite(@ScriptDir & "\Logs" & "\" & $accname & "Logs.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "Uhr]: " & $accname & " hat insgesamt " & $eX4[0] & " User mit dem Profil " & $d[0] & "angefüttert mit folgenden Satz:" & @crlf & GUICtrlRead($inputtext1) & @crlf)
  447. GUICtrlSetData($Popelbutton4,"FERTIG!")
  448. SoundPlay(@ScriptDir & "\storage\finish.wav", 1)
  449. _FTP_DirPutContents($conn, @ScriptDir & "\Logs", "", 1)
  450. _FTP_Close($Open)
  451. EndSelect
  452.  
  453. WEnd
  454. EndFunc
  455.  
  456.  
  457. Func _Exit()
  458. exit
  459. EndFunc
  460.  
  461. Func Start2()
  462.  
  463.  
  464.  
  465. GUISETSTATE(@SW_HIDE)
  466.  
  467.  
  468.  
  469. $GUI_Main5 = GUICreate("Schritt 1", 650, 300, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
  470. GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
  471. GUISetBkColor(0x333333) ;Transparenzfarbe
  472. GUISetState(@SW_SHOW,$GUI_Main5)
  473. _WinAPI_SetLayeredWindowAttributes($GUI_Main5, 0x333333)
  474. $anal = GUICtrlCreateLabel("Schritt 1: Einloggen", 240, 5, 200, 25)
  475. GUICtrlSetColor($anal, $COLOR_WHITE)
  476. GUICtrlSetFont ($anal, 17, 400 ,1)
  477. $GUI_Button_LOL2 = GUICtrlCreateButton("X", 620, 0, 30, 30)
  478. GUICtrlSetColor($GUI_Button_LOL2, $COLOR_WHITE)
  479. GUICtrlSetBkColor($GUI_Button_LOL2, 0xeb6666)
  480. $moppel = GUICtrlCreateLabel("Einfach ohne Eingabe auf login klicken, falls du in Firefox bereits eingeloggt bist!", 95, 270, 480, 50)
  481. GUICtrlSetColor($moppel, 0xa8df3e)
  482. GUICtrlSetFont ($moppel, 10, 400 ,1)
  483. $accstring = IniRead("Datastorage.ini","Data","Username", "Account")
  484. $pwstring = IniRead("Datastorage.ini","Data","Password", "Passwort")
  485. $input2 = GUICtrlCreateInput("Account",270,50, 100, 20)
  486. $input3 = GUICtrlCreateInput("Passwort",270,80, 100, 20)
  487. GUICtrlSetData($input2, $accstring)
  488. GUICtrlSetData($input3, $pwstring)
  489. $GUI_Button_LOL3 = GUICtrlCreateButton("Login", 270, 150, 100, 60)
  490. GUICtrlSetColor($GUI_Button_LOL3, $COLOR_BLACK)
  491. GUICtrlSetBkColor($GUI_Button_LOL3, $COLOR_WHITE)
  492. $aCkBox = GUICtrlCreateCheckbox('', 263, 100, 15, 30)
  493. $moppel2 = GUICtrlCreateLabel("Daten speichern?", 281, 108, 150, 15)
  494. GUICtrlSetColor($moppel2, $COLOR_WHITE)
  495.  
  496. GUISetState()
  497.  
  498.  
  499.  
  500. While 1
  501. $Msg3 = GUIGetMsg()
  502. Switch $Msg3
  503. Case $GUI_Button_LOL2
  504. Exit
  505. Case $GUI_Button_LOL3
  506. $collectusername = GUICtrlRead($input2)
  507. $collectpassword = GUICtrlRead($input3)
  508. If _IsChecked($aCkBox) Then
  509. IniWrite("Datastorage.ini", "Data", "Username", $collectusername)
  510. IniWrite("Datastorage.ini", "Data", "Password", $collectpassword)
  511. EndIf
  512. _FFStart("http://classic.private-messenger.com/")
  513. If _FFIsConnected() Then
  514.  
  515. Sleep(200)
  516. _FFSetValue(GUICtrlRead($input2), "login", "name")
  517. Sleep(300)
  518. _FFSetValue(GUICtrlRead($input3), "pwd", "name")
  519. Sleep(300)
  520. _FFFormSubmit()
  521. Sleep(300)
  522. MsgBox(64, "Erfolg", "Bitte jetzt alle Profile wählen!")
  523. Sleep(300)
  524. Start()
  525. Else
  526. MsgBox(64, "Ein Fehler ist aufgetreten", "Eine Verbindung mit dem Mozilla FireFox war nicht möglich!")
  527. EndIf
  528.  
  529.  
  530.  
  531. EndSwitch
  532.  
  533.  
  534. WEnd
  535. Endfunc
  536.  
  537.  
  538.  
  539. Func _IsChecked($idControlID)
  540. Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
  541. EndFunc ;==>_IsChecked
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!