Guten tag Zusammen bin zwar nicht mehr neu hier aber das ist mein erster beitrag.
ich möschte euch heute mein kleines tool Vorstellen, und würde mich über Feedbecks freuen.
Für Kritik und Verbesserungsvorschläge, bin ich natürlich offen.
Somit stelle ich euch den Jux / stupsinator vor der Für die online Just-for-Fun-Community Jux.de geschrieben wurde.
[Blockierte Grafik: http://server-galaxy.de/img4you/images/picturesc0.jpg]
Jeder der die Community Jux.de kennt weis ja was stupsen ist kurz gesagt mann bekommt für jedes stupsen und gestupst werden einen Punkt
Benötigt wird legendlich:
Der Web-Browser: FireFox
und das Mozilla addon: Addon MozRepl
Hier mal das ganze Paket zum Runterladen: Jux.de-Stupsinator.rar
Ich wünsche Viel Spass damit
Mit freundlichen Grüssen
Marty_mco
Spoiler anzeigen
#NoTrayIcon
#include <ListViewConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#Include <FF.au3>
#Include <String.au3>
#include <FF_AutoLogin.au3>
;Das script ist ausschlieslich für Mozilla Firefox geschrieben Addon (MozRepl 1.0 – release) wird benötigt Link: // http://repo.hyperstruct.net/mozrepl/1.0/mozrepl.xpi
[/autoit] [autoit][/autoit] [autoit]Opt("GUIDataSeparatorChar")
Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.
TraySetState()
TraySetClick(16) ; Nur wenn die zweite Maustaste gedrückt wird, wird das Traymenü anzeigt.
Dim $maxitray, $line, $urlin, $u_list, $sUserName, $sPassWord
Dim $pName = "Jux / Stupsinator"
Dim $smilie = @ScriptDir & '\pics\psmile.jpg'
;HauptGUI...
$h_window = GUICreate($pName, 633, 469, 188, 119)
;Label´s...
$Label1 = GUICtrlCreateLabel("URL Adresse", 8, 224, 67, 17)
$Label2 = GUICtrlCreateLabel("Site Counter | Multiplikator", 472, 228, 135, 17, $SS_CENTER)
$Label3 = GUICtrlCreateLabel("Gefundene Stupser", 8, 260, 337, 17, $SS_CENTER)
$Label4 = GUICtrlCreateLabel("Login", 368, 252, 118, 17)
$Label5 = GUICtrlCreateLabel("Passwort", 368, 296, 159, 17)
$Label6 = GUICtrlCreateLabel("Programmiert von Marty_mco http://www.Software-Galaxy.de", 8, 416, 337, 17, $SS_CENTER)
$Label7 = GUICtrlCreateLabel("X", 532, 252, 19, 21, $SS_CENTER)
$Label8 = GUICtrlCreateLabel("", 36, 436, 587, 26)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x008000)
;EditBox Readonly zum Darstellen des Quelltextes...
$quelltext = GUICtrlCreateEdit("", 8, 8, 617, 209, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "Quelltext")
;ListView zum ausgeben der ergebnisse...
$u_list = GUICtrlCreateListView("Nr. | Link | User ", 8, 280, 337, 134, Default, $LVS_EX_GRIDLINES + $LVS_EX_SNAPTOGRID)
;InputBox zum eintragen gewünschter daten (z.b. Anzahl der seiten die abgearbeitet werden sollen oder direkt Login zur Seite http://www.Jux.de)...
$urlin = GUICtrlCreateInput("http://www.jux.de/", 88, 224, 377, 21)
$co_input = GUICtrlCreateInput("1", 492, 248, 37, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER))
$bn_input = GUICtrlCreateInput("Benutzername/E-Mailadresse", 368, 272, 161, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$pw_input = GUICtrlCreateInput("Passwort", 368, 316, 161, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$multi = GUICtrlCreateInput("1", 552, 248, 37, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER))
;Button´s zum starten des jeweiligen vorgangs...
$login = GUICtrlCreateButton("Login", 552, 344, 73, 25, 0)
$rstart = GUICtrlCreateButton("Rip Now!", 552, 376, 73, 25, 0)
$st_start = GUICtrlCreateButton("Stups Now!", 552, 408, 73, 25, 0)
$logout = GUICtrlCreateButton("Logout", 552, 312, 73, 25, 0)
;zum selectieren wo gestupst werden soll MemberSeach oder im eigenen Poke Index...
$m_search = GUICtrlCreateRadio("Mittglieder/Rippen", 372, 388, 113, 17, BitOR($BS_AUTORADIOBUTTON,$BS_CENTER))
$pokelist = GUICtrlCreateRadio("Anstupser/Rippen", 372, 412, 113, 17, BitOR($BS_AUTORADIOBUTTON,$BS_CENTER))
$visiblecheck = GUICtrlCreateCheckbox("Versteckt starten", 372, 364, 113, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_CENTER,$WS_TABSTOP))
$autocount = GUICtrlCreateCheckbox("Auto Count / Poke", 372, 340, 113, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_CENTER,$WS_TABSTOP))
;smiliepic...
$smilepic = GUICtrlCreatePic($smilie, 8, 432, 24, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Traymenü einträge...
$update = TrayCreateItem("Hole Stats")
TrayCreateItem("")
$exittray = TrayCreateItem("Beenden")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_FFQuit()
Exit
Case $login
_check()
Case $st_start
_stupsen()
Case $logout
_logout_disc()
EndSwitch
$msg = TrayGetMsg()
Select
Case $nMsg = $GUI_EVENT_MINIMIZE
WinSetState ($pName, "", @SW_HIDE)
$line = TrayCreateItem("")
$maxitray = TrayCreateItem("Maximieren")
Case $msg = $maxitray
WinSetState ($pName, "", @SW_RESTORE)
TrayItemDelete($maxitray)
TrayItemDelete($line)
Case $msg = $update
_getstats()
Case $msg = $exittray
_FFQuit()
Exit
EndSelect
Select
Case $nMsg = $rstart And BitAND(GUICtrlRead($m_search), $GUI_CHECKED) = $GUI_CHECKED
_siteread_member()
Case $nMsg = $rstart And BitAND(GUICtrlRead($pokelist), $GUI_CHECKED) = $GUI_CHECKED And GUICtrlRead($autocount) = $GUI_UNCHECKED
_pokeindex()
Case $nMsg = $rstart And BitAND(GUICtrlRead($pokelist), $GUI_CHECKED) = $GUI_CHECKED And GUICtrlRead($autocount) = $GUI_CHECKED
_autocount()
EndSelect
WEnd
;Prüft ob INI Datei vorhanden ist und wenn nicht Fragen Ob anlegen Ja Oder Nein...
[/autoit] [autoit][/autoit] [autoit]Func _check()
$userfild = GUICtrlRead($bn_input)
$passfield = GUICtrlRead($pw_input)
$sIni = @ScriptDir & "\config.ini"
$var = IniReadSection($sIni, "User1")
If @error Then
$ask2 = MsgBox(68, $pName, "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden." & @LF & "Möchtest du eine neue INI Datei Anlegen lassen?")
If $ask2 = 6 Then
$sData = $userfild & "=" & $passfield
IniWriteSection($sIni, "User1", $sData)
MsgBox(64, $pName, "Die INI Datei wurde erfolgreich angelegt.")
EndIf
Else
For $i = 1 To $var[0][0]
GUICtrlSetData($bn_input,$var[$i][0])
$sUserName = $var[$i][0]
GUICtrlSetData($pw_input,$var[$i][1])
$sPassWord = $var[$i][1]
Next
EndIf
_login($sUserName, $sPassWord)
EndFunc
;Auto login...
[/autoit] [autoit][/autoit] [autoit]Func _login($sUserName, $sPassWord)
$ffurl = GUICtrlRead($urlin)
If GUICtrlRead($visiblecheck) = $GUI_CHECKED then
$hide = True
Else
$hide = False
EndIf
If _FFStart($ffurl, Default, 1, $hide) Then
_FF_AutoLogin($sUserName, $sPassWord, "http://www.jux.de/login/authenticate", "logout")
DirCreate(@ScriptDir & '\Logs')
Else
MsgBox(48, $pName, "Mozilla FireFox konnte nicht gestartet werden." & @CRLF & "Bitte überprüfe ob, du Mozilla FireFox auch Installiert hast.")
EndIf
EndFunc
;Hole Statistic von Jux.de...
[/autoit] [autoit][/autoit] [autoit]Func _getstats()
Local $arry3[1], $arry4[1], $arry5[1]
_FFOpenURL('http://www.jux.de/', True)
$qText = _FFReadHTML("html",7)
$arry3 = _StringBetween($qText, '<a href="http://www.jux.de/profile">', ' </a></h3>')
$arry4 = _StringBetween($qText, 'height="15" width="69"></span>', ' <img class="barico"')
$arry5 = _StringBetween($qText, '<img class="barico" src="', '" height=')
GUICtrlSetData($Label8, "Du bist als " & $arry3[0] & " eingelogt und du hast " & $arry4[0] & '.')
DirCreate(@ScriptDir & '\pics')
InetGet($arry5[0], @ScriptDir & '\pics\psmile.jpg', 1, 1)
FileWrite(@ScriptDir & '\Logs\pointstat.log',@CRLF & 'Der Aktuelle Stand ' & $arry4[0] & @CRLF & 'Angemeldet als ' & $arry3[0] & @CRLF & 'Update am ' & @MDAY & '.' & @MON & '.' & @YEAR & ' um ' & @HOUR & ':' & @MIN & ':' & @SEC & ' Durchgeführt' & @CRLF)
EndFunc
;Auto Counter / Poke...
[/autoit] [autoit][/autoit] [autoit]Func _autocount()
Local $array6[1]
Do
_FFOpenURL('http://www.jux.de/poke/index', True)
$qText = _FFReadHTML("html",7)
$array6 = _StringBetween($qText, 'Du wurdest ', ' mal angestupst.')
If @error Then ExitLoop
$ergebnis = $array6[0] / 10
$c_site = Ceiling($ergebnis)
GUICtrlSetData($co_input, $c_site)
Call("_pokeindex")
Until GUICtrlRead($autocount) = $GUI_UNCHECKED
EndFunc
;Members Seach Rippen...
[/autoit] [autoit][/autoit] [autoit]Func _siteread_member()
Local $arry1[1], $arry2[1]
GUICtrlSetData($rstart, "Stop")
$count = GUICtrlRead($co_input)
GUICtrlSetData($urlin, 'http://www.jux.de/search/result/page/')
$siteurl = GUICtrlRead($urlin)
For $i = 1 To $count Step +1
_FFOpenURL($siteurl & $i, True)
GUICtrlSetData($urlin, $siteurl & $i)
$sText = _FFReadHTML("html",7)
If Not @error Then GUICtrlSetData($quelltext, $sText)
$arry2 = _StringBetween($sText, '<a title="Anstupsen" href="', '" rel="nofollow">Anstupsen</a>')
if @error Then ExitLoop
$a2 = Ubound ($arry2)
$s = 0
Do
_ArrayAdd($arry1, $arry2[$s])
$s = $s +1
Until $s = $a2
Next
GUICtrlSetData($quelltext, "Lesen des Quelltextes Abgeschlossen..." & @CRLF & "Status Ok !")
$u_anzahl = Ubound ($arry1)
$x = 1
Do
$user = StringTrimLeft($arry1[$x], 23)
GUICtrlCreateListViewItem($x & '|' & $arry1[$x] & '|' & $user, $u_list)
FileWrite(@ScriptDir & '\Logs\memberseach.log',$arry1[$x] & @CRLF)
$x = $x +1
Until $x = $u_anzahl
GUICtrlSetData($rstart, "Rip Now!")
FileWrite(@ScriptDir & '\Logs\memberseach.log',@CRLF & 'Gesamtanzahl der Resultate ' & $u_anzahl & @CRLF & 'Ausgeführt am ' & @MDAY & '.' & @MON & '.' & @YEAR & ' um ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
$ask = MsgBox(68, $pName, "Das auslesen der Mitgliederliste ist Erfolgreich abgeschlossen" & @CRLF & 'Gesamtanzahl der Resultate ' & $u_anzahl & @CRLF & "Möchtest du mit dem Stupsen Fortfahren")
If $ask = 6 Then
Call("_stupsen")
EndIf
EndFunc
;Poke Index Rippen...
[/autoit] [autoit][/autoit] [autoit]Func _pokeindex()
Local $arry1[1], $arry2[1]
$m = GUICtrlRead($multi)
For $h = 1 to $m Step + 1
GUICtrlSetData($rstart, "Stop")
$count = GUICtrlRead($co_input)
GUICtrlSetData($urlin, 'http://www.jux.de/poke/index/page/')
$siteurl = GUICtrlRead($urlin)
For $i = 1 To $count Step +1
_FFOpenURL($siteurl & $i, True)
GUICtrlSetData($urlin, $siteurl & $i)
$sText = _FFReadHTML("html",7)
If Not @error Then GUICtrlSetData($quelltext, $sText)
$arry2 = _StringBetween($sText, '<li><a title="zur ckstupsen" href="', '">zur ckstupsen</a></li>')
if @error Then ExitLoop
$a2 = Ubound ($arry2)
$s = 0
Do
_ArrayAdd($arry1, $arry2[$s])
$s = $s +1
Until $s = $a2
Next
GUICtrlSetData($quelltext, "Lesen des Quelltextes Abgeschlossen..." & @CRLF & "Status Ok !")
$u_anzahl = Ubound ($arry1)
$x = 1
Do
$user = StringTrimLeft($arry1[$x], 23)
GUICtrlCreateListViewItem($x & '|' & $arry1[$x] & '|' & $user, $u_list)
FileWrite(@ScriptDir & '\Logs\memberpokeindex.log',$arry1[$x] & @CRLF)
$x = $x +1
Until $x = $u_anzahl
Next
GUICtrlSetData($rstart, "Rip Now!")
FileWrite(@ScriptDir & '\Logs\memberpokeindex.log',@CRLF & 'Gesamtanzahl der Resultate ' & $u_anzahl & @CRLF & 'Ausgeführt am ' & @MDAY & '.' & @MON & '.' & @YEAR & ' um ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
If GUICtrlRead($autocount) = $GUI_CHECKED Then
Call("_stupsen")
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Sendet die Member URL´s an den Browser...
[/autoit] [autoit][/autoit] [autoit]Func _stupsen()
FileWrite(@ScriptDir & '\Logs\memberpoke_stats.log',@CRLF & 'Mitglieder Stups/Poke Start am:' & @CRLF & @MDAY & '.' & @MON & '.' & @YEAR & ' um ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
GUICtrlSetData($st_start, "Stop")
$listcount = ControlListView($pName, "", "SysListView321", "GetItemCount")
For $lc = 1 to $listcount Step +1
$memberurl = ControlListView($pName, "", "SysListView321", "GetText", 0, 1)
$userout = ControlListView($pName, "", "SysListView321", "GetText", 0, 2)
_FFOpenURL($memberurl, True)
GUICtrlSetData($urlin, $memberurl)
_GUICtrlListView_DeleteItem($u_list,0)
GUICtrlSetData($quelltext, "Mitglied " & $userout & " wurde erfolgreich angestupst" & @CRLF)
Next
GUICtrlSetData($quelltext, $lc & " Mitglieder wurden erfolgreich angestupst" & @CRLF)
FileWrite(@ScriptDir & '\Logs\memberpoke_stats.log',@CRLF & 'Mitglieder Stups/Poke mit ' & $lc &' Resulz Ende am:' & @CRLF & @MDAY & '.' & @MON & '.' & @YEAR & ' um ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
GUICtrlSetData($st_start, "Stups Now!")
EndFunc
;Auslogen und Browser Instanz Beenden...
[/autoit] [autoit][/autoit] [autoit]Func _logout_disc()
_FFOpenURL("http://www.jux.de/logout", True)
If _FFQuit() Then
MsgBox(64, $pName, "Logout und Disconnect wurde erfolgreich um " & @HOUR & ':' & @MIN & ':' & @SEC & " durchgeführt")
EndIf
EndFunc