Hehe... da haste genau das gleich aber ich habe das schon ausprobiert mit dem FileGetShortCut ... steht aber auch oben.... 
Ich bekomme nur leider einen Link raus der sich nicht starten lässt...
Das lustige ist das das nur bei Microschuft Office so ist.... 
aber bei dem was ich gerade am Proggen bin sind gerade so sachen wichtig.... 
Naja vieleicht hat ja einer ne Ahnung...
MFG chris 
Hiho..
am besten du Postest deinen Code oder zumindestens nen teil...
Dann kann man immer Besser weiter helfen...
MFG chris
Hiho...
Hab mal wieder total nen Hänger....
#include <array .au3="">
[/autoit][autoit][/autoit][autoit]; Das ist Original aus der Startleiste....
$lnk = FileGetShortcut ( 'C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office PowerPoint 2007.lnk')
_ArrayDisplay ($lnk) ;$lnk[0] = C:\WINDOWS\Installer\{90120000-0030-0000-0000-0000000FF1CE}\pptico.exe
ShellExecute ($lnk[0])
[/autoit][autoit][/autoit][autoit][/autoit]was mache ich daran falsch? Die lnk lässt sich auch nicht direckt mit shellexecute starten...
DANKE schonmal...
EDIT: Es handelt sich hierbei um Office 2007
MFG chris
Hi...
Habel folgendes Problem.
Ich mochte gerne eine Datei mit wget.exe herunterladen
funzt auch gut mit 
ShellExecute('wget.exe','--output-document antivir.exe http://dl4.avgate.net/down/windows/a…_win7u_de_h.exe','','',@SW_SHOW)
[/autoit]Würde jetzt gerne die Informationen aus der DosBox mit StdoutRead auslesen.
Nur dafür brauche ich die Prozess ID wenn ich das richtig verstanden habe...
Habe es mit WinGetProcess versucht aber das will leider nicht hinhauen...
Vieleicht hat einer ne idee ....
LG chris
Hi...
Es gibt nen nettes Tool das sich "Net Limiter 2 pro" nennt... damit kannst du jedem Programm eine gewisse inet geschwindigkeit erlauben.... funzt bei mir sehr gut das Dingen 
Falls dus haben möchtest: Freeware Version suchen ...
MFG chris
Edit peethebee: Klar, warum 
jeep werds mir merken
Hoffe das ist nicht zu sehr OT.
Freie Software ist doch viel schöner als Bezahlsoftware
Mir gehts ja eigentlich nur drum zu wissen wie mans machen kann und obs geht... weiß noch nicht ob ich das mache
MFG chris
Wohin soll ich das verschlüsselte datum Speichen?
In der Regedit ist auch doof.... wenn man es da findet löscht man es und nutzt Trial Zeit nochmal aus!
MFG chris
Hi... 
Also Ich habe ein Programm geschrieben und möchte es jetzt gerne als eine art Testversion rausbringen... d.h. Wenn man das Programm zum ersten mal ausführt
läuft es von da an eine bestimmte Zeit lang und verlangt dann eine Seriennummer.
Meine Frage ist jetzt wie man das am besten realisieren kann... 
Meine erste idee war das Startdatum in die Regedit zu schreiben... aber das ist eher etwas
einfach rauszufinden und umzustellen?
Und das mit der Serial weiß ich auch noch nicht??
Vielen Dank für Antworten!!
MFG chris
Also wies aussieht geht leider noch einiges nicht
Hoffe aber mal das das in der kommenden Zeit noch kommt aber ansonsten nen echt schickes Design....
MFG chris 
Hi... =)
Mir hat der Ansatz von Mega sehr gut gefallen und da habe ich gedacht ich bastel mal etwas weiter...
Habe nur leider jetzt ein Problem...
Die Traffic des UP und DOWN bezieht sich ja jetzt auf den gesammten Traffic des Rechners... gibt es da ne möglichkeit das geziehlter auszulesen als mit netstat -e.... :comp2:
Hier mal das Programm wie es bis jetzt ist.
(für 2000er flat. kann aber umgestellt werden)
#include <GUIConstants.au3>
#include <Constants.au3>
#include <array.au3>
#include <string.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$begin1 = TimerInit();Startpunkt setzen der Zeitmessung(Um das erste mal zu Deklarieren)
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Administrator\Desktop\auto it\speedmeter\NetGUI.kxf
$NetGUI = GUICreate("NetStats", 294, 133, 197, 119, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUICtrlCreateLabel("Uploaded", 24, 8, 73, 20, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$UpLoad = GUICtrlCreateLabel("Upload", 8, 32, 100, 20, BitOR($SS_CENTER,$SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$verhaeltnis = GUICtrlCreateLabel("n/a", 118, 32, 48, 20, BitOR($SS_CENTER,$SS_CENTERIMAGE,$SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Downloaded", 184, 8, 91, 20, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Download = GUICtrlCreateLabel("Download", 176, 32, 105, 20, BitOR($SS_CENTER,$SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Up = GUICtrlCreateLabel("SpeedUp", 8, 80, 100, 20, BitOR($SS_CENTER,$SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Down = GUICtrlCreateLabel("SpeedDown", 176, 80, 100, 20, BitOR($SS_CENTER,$SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Speed", 32, 56, 49, 20, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Verhältnis", 118, 16, 52, 15)
GUICtrlSetFont(-1, 5, 400, 0, "MS Sans Serif")
$Progress1 = GUICtrlCreateProgress(8, 112, 100, 9)
$Progress2 = GUICtrlCreateProgress(176, 112, 100, 9)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent(-3, "_exit")
$UpStr = 0
$DownStr = 0
$time = 0
$UpStr_alt = 0
$DownStr_alt = 0
_netstat($UpStr, $DownStr); Up,Down das erste mal lesen um Verschiebungspunkte zu suchen
$Xup = $UpStr ;Startpunkt setzen
$Xdown = $DownStr
While 1
Sleep (500)
_netstat($UpStr, $DownStr)
$UpStr = $UpStr - $Xup ;Startpunkt verschieben
$DownStr = $DownStr - $Xdown
$Up_speed = $UpStr - $UpStr_alt
$Down_speed = $DownStr - $DownStr_alt
;ToolTip ('Alt: '&$UpStr_alt&' - '&$UpStr&' = '&$UpStr-$UpStr_alt &@CRLF _
; &'Neu: '&$DownStr_alt&' - '&$DownStr&' = '&$DownStr-$DownStr_alt,5,5)
$diff = TimerDiff($begin1)
$begin1 = TimerInit()
;ConsoleWrite($diff&@CRLF)
$Up_speed = $Up_speed/($diff/1000) ;Zeitversatz abziehen oder draufrechnen (WICHTIG!)
$Down_speed = $Down_speed/($diff/1000)
$Up_speed = Round(($Up_speed*8)/1024,2) ; *8 für Byte zu bit /1024 für in kbit
$Down_speed = Round(($Down_speed*8)/1024,2)
$Up_speed_pro = $Up_speed*0.5 ; 0,5 für 2k er flat 0.0625 für 16k er flat
$Down_speed_pro = $Down_speed*0.05 ; 0,05 0.00625
;ToolTip ($Up_speed_pro&' | '&$Down_speed_pro)
GUICtrlSetData ($Progress1,$Up_speed_pro) ;Prozessbalken setzen
GUICtrlSetData ($Progress2,$Down_speed_pro)
GUICtrlSetData ($Up,$Up_speed&' kbit') ;Upload Daten setzen
GUICtrlSetData ($Down,$Down_speed&' kbit')
If $UpStr < $DownStr Then ;Wenn Verhältnis $UpStr < $DownStr dann 1:xx
$verhaeltnis_str = Round($DownStr/$UpStr,2)
GUICtrlSetData ($verhaeltnis,'1 : '&$verhaeltnis_str)
Else ;... ansonsten xx:1
$verhaeltnis_str = Round($UpStr/$DownStr,2)
GUICtrlSetData ($verhaeltnis,$verhaeltnis_str&' : 1')
EndIf
$UpStr_alt = $UpStr ;Alte Werte Speichern
$DownStr_alt = $DownStr
Select
Case $DownStr < 1024
$DownStr = $DownStr&' Byte'
Case $DownStr > 1023 And $DownStr < 1048575
$DownStr = Round($DownStr/1024,2)&' KB'
Case $DownStr > 1048575
$DownStr = $DownStr/1024
$DownStr = Round($DownStr/1024,2)&' MB'
EndSelect
Select
Case $UpStr < 1024
$UpStr = $UpStr&' Byte'
Case $UpStr > 1023 And $UpStr < 1048575
$UpStr = Round($UpStr/1024,2)&' KB'
Case $UpStr > 1048575
$UpStr = $UpStr/1024
$UpStr = Round($UpStr/1024,2)&' MB'
EndSelect
If $DownStr == 0 And $UpStr == 0 Then ;Wenn kein Netzwerk angeschlossen ist
GUICtrlSetData($Download,'n/a')
GUICtrlSetData($UpLoad, 'n/a')
Else
GUICtrlSetData($Download,$DownStr)
GUICtrlSetData($UpLoad, $UpStr)
EndIf
WEnd
Func _netstat(ByRef $UpStr, ByRef $DownStr)
$NetStat = Run(@ComSpec & " /c netstat -e", @SystemDir, @SW_HIDE, 2)
$LineDos = StdoutRead($NetStat, 400)
If StringInStr($LineDos,'Bytes') = True Then
$Line = _StringBetween ($LineDos,'Bytes','Unicastpakete')
$Line = StringStripWS($Line[0], 7)
$Lines = StringSplit($Line, " ")
$UpStr = $Lines[2]
$DownStr = $Lines[1]
EndIf
EndFunc ;==>_netstat
;Func _Reset(ByRef $TUp, ByRef $TDwn)
; _netstat($UpStr,$DownStr)
; $Tup = $UpStr
; $Tdwn = $DownStr
;EndFunc
Func _exit()
Exit
EndFunc ;==>_exit
MFG chris
Das muss aber auch gehen, das man da ne MsgBox aufrufen tut ohne das die immer wieder kommt oder?
MFG chris
Hi..
Warum löst dieser Gui bei 1. klick auf $button die MsgBox andauernd aus?
orginal ist von Health
#cs ----------------------------------------------------------------------------
Author: Health
#ce ----------------------------------------------------------------------------
#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$Title = "Steam Like Window in AutoIt!"
$Width = 400 ; \
$Height = 250 ; - beliebig veränderbar... alle koordinaten von ctrls relativ zur gui-größe
; Konstanten
Global Const $Font = "Tahoma"
Global Const $FontSize = 8.5
Global Const $FontColor = 0xD8DED3
Global Const $FontColor2 = 0xC4B550 ; progress, tab, active
Global Const $FontColorInput = 0xFFFFFF
Global Const $TitleHeight = 21
Global Const $DefaultCtrlHeight = 24
Global Const $BgColorTitle = 0x5A6A50
Global Const $BgColor = 0x464646
Global Const $BgColorInput = 0x555555
Global Const $BgColorButton = 0x555852
Global Const $LineColor = 0x686A65
$Gui = GUICreate($Title, $Width, $Height, -1, -1, $WS_POPUP)
GUISetBkColor($BgColor)
GUISetFont($FontSize, 400, 0, $Font)
; Fenster-Rahmen
; Close-Button
$Close = GUICtrlCreatePic("close.bmp", $Width - 16, 7, 9, 9)
; Minimieren-Button
$Minimize = GUICtrlCreatePic("minimize.bmp", $Width - 31, 7, 9, 9)
; Titel-Label
$TitleBar = GUICtrlCreateLabel($Title, 6, 4, $Width - 42, 17, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, $FontColor)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
; Hintergrund der Titelleiste
GUICtrlCreateGraphic(0, 0, $Width, $TitleHeight)
GUICtrlSetBkColor(-1, $BgColorTitle)
; Eigentlicher Inhalt
GUICtrlCreateLabel("Welcome to Steam...", 15, $TitleHeight + 15, $Width - 30, 20)
GUICtrlSetColor(-1, $FontColor)
GUICtrlCreateLabel("This GUI rocking your ass!", 15, $TitleHeight + 45, $Width - 30, 20)
GUICtrlSetColor(-1, $FontColor2)
$Input = GUICtrlCreateInput("an input", 50, 125, 100, $DefaultCtrlHeight)
GUICtrlSetColor(-1, $FontColorInput)
GUICtrlSetBkColor(-1, $BgColorInput)
$Button = GUICtrlCreateButton("press", 75, 175, 80, $DefaultCtrlHeight + 2)
GUICtrlSetColor(-1, $FontColorInput)
GUICtrlSetBkColor(-1, $BgColorButton)
; Fenster-Rahmen
; Gui-Rand
GUICtrlCreateGraphic(0, $TitleHeight, $Width, $Height - $TitleHeight)
GUICtrlSetBkColor(-1, $LineColor)
GUICtrlCreateGraphic(1, $TitleHeight, $Width - 3, $Height - $TitleHeight - 2)
GUICtrlSetBkColor(-1, $BgColor)
; Gui einblenden
GuiRoundCorners($Gui, 0, 0, 2, 2)
WinSetTrans($Gui, "", 0)
GUISetState()
FadeIn($Gui)
Func GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
$pos = WinGetPos($h_win)
$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
If $ret[0] Then
$ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc ;==>GuiRoundCorners
Func FadeIn($h)
For $i = 0 To 255 Step 15
Sleep(10)
WinSetTrans($h, "", $i)
Next
EndFunc ;==>FadeIn
Func FadeOut($h)
For $i = 255 To 0 Step -15
Sleep(10)
WinSetTrans($h, "", $i)
Next
EndFunc ;==>FadeOut
Func SetTitle($s)
GUICtrlSetData($TitleBar, $s)
WinSetTitle($Gui, "", $s)
EndFunc
While 1
Switch GUIGetMsg()
Case $Close
FadeOut($Gui)
Exit
Case $Minimize
FadeOut($Gui)
GUISetState(@SW_MINIMIZE)
WinSetTrans($Gui, "", 255)
Case $Button
MsgBox (0,"","")
GUICtrlSetData($Input, "foobar!")
SetTitle("Es ist " & @HOUR & ":" & @MIN & " Uhr und " & @SEC & " Sekunden")
EndSwitch
WEnd
;
; Ende
;
Hoffe das da jemand ne lösung findet...
MFG chris
Original von huggy
juhu, n script Kiddy *tröte raushaul und tröööööt mach*Wieder macht sich jemand strafbar *trööööt*
Und selbst schafft ers nicht *trööööööt*
und nicht intelligent genug, uns so zu verarschen dass wir ihm helfen *tröööt*
Und er glaubt echt, sowas wird hier tolleriert *Trööööt*
*Tröte kaputt =( *
Absolut meine Meinung wenn man sowas schreiben will muss man es alleine hinbekommen !!!!! :comp2:
Auch mal mit *trööööööööööööööööööt* 
@huggy *neue tröte schenk* (100er Pack bei Aldi)
MFG chris
Original von jonk
Hey jonk
leider funzt die http.au3 bei mir nicht.
Fehler ist folgender:
C:\PROGRA~1\AutoIt3\Include\http.au3(219,26) : ERROR: TimerStart(): undefined function.
Dim $timer = TimerStart()ausserdem habe ich im englischen forum keine http.au3 gefunden. (Ein Link wäre sehr nett:))
LG Blubkuh
Hi...
Hatte auch das Problem mit der HTTP.au3 deswegen habe ich die wget.exe benutzt^^ Aber wenn du raus bekommst was das mit dem TimerStart() auf sich hat dann lass es uns wissen ... :]
MFG chris
Waoooo ja der Gui ist echt schön...
Habe nur mal ne Frage...
Wenn man dem Gui aus Spass an der Freude unter dem Case $button ne Msg anhängt ...
like...
......
Case $Button
MsgBox (0,"","";)
GUICtrlSetData($Input, "foobar!";)
SetTitle("Es ist " & @HOUR & ":" & @MIN & " Uhr und " & @SEC & " Sekunden";)
EndSwitch
......
und man das ganze startet und jetzt auf das $button klickt...
kommt auch die Msg aber sie kommt 2 mal hintereinander....
Warum?
Danke für Antworten...
MFG chris
Hi...
Wenn ich das jetzt richtig verstanden habe benutzt du WLAN ??(
Also das Singnal mit dem 2 Router zu verlängern geht....
Du must den 2 Router als Repeater einrichten...
Musst aber dann darauf achten das dein rechner die MAC des 2 Routers (stärkeres Signal) als Router annimmt... =) sonst greifst du ja vieleicht doch wieder auf den 1 Router zu
Habe das ganze schonmal ausprobiert.... aber...
Aber am besten du kaufst dir nen Richtigen Repeater oder noch besser leg nen Kabel....
Wlan ist einfach nicht das wahre.... und schon gar nicht über 3 Stockwerke...
Naja ich hoffe ich konnte dir weiterhelfen....
MFG chris:D
Leut es ist viel einfacher^^8)
Seite ganz noraml laden... Daten eingeben...
Kein captcha eingeben und auf abschicken drücken...
Dann auf der kommenden Seite wird das Captcha angezeigt das richtig gewesen wäre...
das kopieren....
1 im Verlauf zurück gehen....
Daten eingeben...
Captcha einfügen
Senden...
Geht .....
MFG chris:D
Hi
Habe es jetzt auf 4 Rechnern getestet keiner von denen hat gemeckert.
Welches Betriebsystem hast du drauf.. ?
Edit:
@energy
Habe es nicht vor gehabt das in nen gui einzubauen mal gucken...
Mit dem --save-cookies=login habe ich noch nicht probiert ob es ohne geht^^
MFG chris:D
So fertig
Ich hoffe das ich das hier Posten darf.... ansonsten bitte einfach löschen^^
Ist nur ne Testversion (Sind also bestimmt noch Bugs drin) :comp2:
h**p://www.datenschleuder.eu/get_87500d104a4458fe7503c49892da2645.html
#include <Inet.au3>
#include <array.au3>
#include <string.au3>
#include <file.au3>
#include <GUIConstants.au3>
#include <Date.au3>
FileInstall ( "data.ini", 'data.ini')
FileInstall ( "wget.exe", 'wget.exe')
ToolTip ("starte ...",25,25)
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form= ;Gui erstellen für Captcha abfrage.....
$Form1 = GUICreate("Captcha", 117, 91, 193, 115, -1,BitOr($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
$Pic1 = GUICtrlCreatePic("", 8, 8, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP))
$Input1 = GUICtrlCreateInput("", 8, 40, 100, 21)
$OK_Button = GUICtrlCreateButton("OK", 8, 64, 100, 25, 1,$BS_DEFPUSHBUTTON);$BS_DEFPUSHBUTTON = reagiert auf {ENTER}
#EndRegion ### END Koda GUI section ###
HotKeySet ('^i','_zeigeHilfe');Hotkey setzen für Strg+i
HotKeySet ('^l','_zeigeListe');Hotkey setzen für Strg+l
Opt("TrayOnEventMode",1);Traymenu reagiert auf klick
Opt("TrayMenuMode",1);Um ein Traymenu zu erstellen
$tray_exit = TrayCreateItem("Hilfe";)
TrayItemSetOnEvent(-1,"_zeigeHilfe";)
$tray_exit = TrayCreateItem("Exit";);Trayitem erstellen
TrayItemSetOnEvent(-1,"_gui_exit";);Traymenu reagiert auf klick und geht in die Func _gui_exit()
;ClipPut ( 'http://85.17.177.195/sjsafe/f-f4a18bb61df218d2/rs_sga401.html');****************************************************
; Den ClipPut nur aktivieren um zu testen
While 1
ToolTip ("such nach Serienjunkie Links im Zwischenspeicher.... [STRG] + [ i ] = Help",25,25)
If _IsPressed ('1B') = True Then _gui_exit();Wenn ESC gedrückt wird in Func _gui_exit() springen
While 1
Sleep (50);Lass dem Rechner etwas Luft
If _IsPressed ('1B') = True Then _gui_exit();Wenn ESC gedrückt wird in Func _gui_exit() springen
If StringInStr ( ClipGet(),"/sjsafe/";) = True Then;Wenn im Clip /sjsafe/ vorhanden ist ....
;Bsp: http://85.17.177.195/sjsafe/f-cfb24…rc_stga301.html
$linkverschluesselt = _StringBetween (ClipGet(),"/sjsafe/",".html";);suche die ID des verschlüsselten Links
;_ArrayDisplay ($linkverschluesselt)
ClipPut (''); Clip leer machen da er sonst den gleichen link nochmal entschlüsselt!!
If IsArray($linkverschluesselt) == 1 Then
$link = 'http://85.17.177.195/sjsafe/'&$linkverschluesselt[0]&'.html' ;Link zusammensetzen
ExitLoop ;aus dem While herausspringen...
EndIf
EndIf
WEnd
ToolTip ("Suche Captcha....",25,25)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];####################################################### Solange Captacha fragen bis es richtig ist!!! ANFANG
Do
$quelltext = _INetGetSource ( $link );quelltext holen
$SessionID = _StringBetween ( $quelltext,'VALUE="','">');SessionID ermitteln
$captcha_add = _StringBetween ($quelltext,'src="/sjsafe/secure/','.gif"',-1);captcha adresse herausfiltern
InetGet ("http://85.17.177.195/sjsafe/secure/"&$captcha_add[0]&'.gif',"captcha.gif",1);Captcha herunterladen
GUICtrlSetImage($Pic1,@ScriptDir&"\captcha.gif";);Captcha in den Gui setzen
GUICtrlSetData ($Input1,'');Input leeren von der vorherigen Eingabe
GUISetState(@SW_SHOW);Gui zeigen
ToolTip ("Captcha eingeben....",25,25)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ;Wenn [x] gedrückt dann springe in Funktion _gui_exit()
_gui_exit()
Case $OK_Button ; Wenn OK gedrückt dann...
$captcha_eingabe = GUICtrlRead ($Input1);Eingabefeld lesen
GUISetState(@SW_HIDE);Gui verstecken
ExitLoop ;aus dem While herausspringen...
EndSwitch
WEnd
FileDelete ( @ScriptDir&'\quelltext.htm');vorhandene datei löschen
[/autoit] [autoit][/autoit] [autoit]ToolTip ("prüfe Captcha....",25,25)
ShellExecuteWait('wget.exe','--output-document quelltext.htm --save-cookies=login --keep-session-cookies --post-data "s='&$SessionID[0]&'&c='&$captcha_eingabe&'" '&$link,'','',@SW_HIDE)
; ### Wget.exe ###
; --output-document = Ausgabe der Ziehldatei(gewünschte Seite mit den Downloadlinks)
; --save-cookies=login = Cookie speichern
; --keep-session-cookies = Cookie benutzen um neue Seite zu laden
; --post-data = Die SessionID und die Captchaeingabe übertragen
; link = Die Form-Action Seite angeben
; kompliziert aber funzt und 10 mal schneller als das ganze mit _IEcreate zu machen!!!
Do
Sleep (10)
Until FileExists (@ScriptDir&'\quelltext.htm'); Warten bis die neue .htm erstellt wurde...
Dim $quelltext_array ;array erstellen
_FileReadToArray (@ScriptDir&'\quelltext.htm', $quelltext_array);neue quelltext.htm in ein array einlesen
;_ArrayDisplay ( $quelltext_array)
$quelltext = _ArrayToString ( $quelltext_array,'',1);neues quelltextarray in string umwandeln
Until StringInStr ($quelltext , 'http://85.17.177.195/sjsafe/go-') > 0 ;so lange Prüfen bis Download min 2x im Quelltextstring vorhanden ist.
;####################################################### / Solange Captacha fragen bis es richtig ist!!! ENDE
Dim $array_download_links[1];array erstellen
$i2 = 0
Do ;mache solange...
$i2 = $i2 +1
If StringInStr ( $quelltext_array[$i2],'http://85.17.177.195/sjsafe/go-') Then;Prüfen ob in der Zeile überhaupt ein SJ-Link ist wenn ja, dann....
$link_gefiltert = _StringBetween ($quelltext_array[$i2],'http://85.17.177.195/sjsafe/go-','/') ;Herausfiltern des Links
_ArrayAdd ($array_download_links,$link_gefiltert[0]&'/');zum download array hinzufügen
EndIf
Until $i2 = $quelltext_array[0] ;.... bis Zähler = array max
$array_download_links[0] = UBound ($array_download_links)-1;UBOUND = Um maximale Anzahl des Arrays herauszufinden
;_ArrayDisplay ($array_download_links,"test";)
;############################################################ Rapidshare Links holen für die Downloads
Dim $entschluesselte_links_liste[1];array erstellen
_FileReadToArray ( @ScriptDir&'\entschluesselt.txt',$entschluesselte_links_liste);array mit den schon entschlüsselten daten füllen.
_ArrayAdd ($entschluesselte_links_liste,'----------------------- '&_Now()&' -----------------------');Trennung dem array hinzufügen mit Datum/Uhrzeit
For $i=1 to $array_download_links[0] Step +1 ;jeden download einzelnd bearbeiten bis $i auf $download_links_anzahl ist
;MsgBox(0,$i,"Download = "&$array_download_links[$i])
ToolTip ($i&" / "&$array_download_links[0]&" gefunden/hinzugefügt",25,25);Tooltip setzen
$quelltext1 = _INetGetSource ( 'http://85.17.177.195/sjsafe/go-'&$array_download_links[$i]&'/');Quelltext ermitteln und in $quelltext1 speichern
$link2 = _StringBetween ($quelltext1,'SRC="','/"');Ersten Link herausfiltern
;_ArrayDisplay ($link2)
$quelltext2 = _INetGetSource ($link2[0]&'/');Quelltext holen
;ClipPut ($quelltext2)
;Exit
$i3 = 0
While 1
$i3 = $i3 +1
Select ; Auswählen
Case StringInStr ($quelltext2,'http://rapidshare.com/files/') = True ;Wenn der Quelltext RS.com enthält dann mach....
$link3 = _StringBetween ($quelltext2,'http://rapidshare.com/files/','</b>');Zweiten Link herausfiltern RS.com
If IniRead ( 'data.ini','Allgemein','zwischenablage','') = 1 Then ;Wenn in den Einstellungen zwischenablage 1 ist dann...
ClipPut ('http://rapidshare.com/files/'&$link3[0]);Fertig entschlüsselte Rapidshare.com Link in den Zwischenspeicher legen
EndIf
_ArrayAdd ($entschluesselte_links_liste,'http://rapidshare.com/files/'&$link3[0]) ;zu Liste hinzufügen
ExitLoop
Case StringInStr ($quelltext2,'http://rapidshare.de') = True ;Wenn der Quelltext RS.de enthält dann mach....
$link3 = _StringBetween ($quelltext2,'files/','.html">');Zweiten Link herausfiltern RS.de
If IniRead ( 'data.ini','Allgemein','zwischenablage','') = 1 Then ;Wenn in den Einstellungen zwischenablage 1 ist dann...
ClipPut ('http://rapidshare.de/files/'&$link3[0]);Fertig entschlüsselte Rapidshare.de Link in den Zwischenspeicher legen
EndIf
_ArrayAdd ($entschluesselte_links_liste,'http://rapidshare.de/files/'&$link3[0]) ;zu Liste hinzufügen
ExitLoop
Case StringInStr ($quelltext2,'http://netload.in/') = True ;Wenn der Quelltext RS.de enthält dann mach....
$link3 = _StringBetween ($quelltext2,'http://netload.in/','.htm');Zweiten Link herausfiltern RS.de
If IniRead ( 'data.ini','Allgemein','zwischenablage','') = 1 Then ;Wenn in den Einstellungen zwischenablage 1 ist dann...
ClipPut ('http://netload.in/'&$link3[0]&'.htm');Fertig entschlüsselte Rapidshare.de Link in den Zwischenspeicher legen
EndIf
_ArrayAdd ($entschluesselte_links_liste,'http://netload.in/'&$link3[0]&'.htm') ;zu Liste hinzufügen
ExitLoop
EndSelect ;Auswählen ende
If $i3 > 10 Then
MsgBox (16,"error",'Kenne den Download-Hoster nicht!?'&@CRLF _
&'www.rapidstalker.dl.am')
Exit
EndIf
WEnd
Next
_ArrayAdd ($entschluesselte_links_liste,'-------------------------------------------------------------------');Trennung dem array hinzufügen
_ArrayAdd ($entschluesselte_links_liste,' ');leere Zeile einfügen
$entschluesselte_links_liste[0] = UBound($entschluesselte_links_liste)-1 ;Array[0] setzten
;_ArrayDisplay($entschluesselte_links_liste)
_FileWriteFromArray(@ScriptDir&'\entschluesselt.txt',$entschluesselte_links_liste,1);Vom array in txt schreiben...
WEnd ;While Ende
;#####################################################
Func _gui_exit() ;Funktion EXIT
ToolTip ('') ;Alle Tooltips löschen, da das hochsetzen des Counters etwas dauern kann...(Kommt blöd wenn das Programm noch da ist wenn man exit gedrückt hat^^)
_INetGetSource ( 'http://www.counter.de/cgi-bin/counter.pl?member=1192451610');Counter aufrufen und damit den Zähler 1 hochsetzen
Exit
EndFunc
Func _zeigeHilfe() ;Funk Help/Einstellungen
Run("notepad " & @WorkingDir & "\data.ini" )
EndFunc
Func _zeigeListe() ;Funk Liste
if FileExists( @ScriptDir&'\entschluesselt.txt' ) = 1 Then ;Wenn die Datein entschluesselt.txt vorhanden ist dann...
Run("notepad " & @WorkingDir & "\entschluesselt.txt" );öffne sie
Else ;ansonsten
MsgBox (32,"","Liste ist noch leer";) ;Meckern
EndIf
EndFunc
Also der Quelltext ist komplett Komentiert...
Werden aber vieleicht nicht alle Komentare stimmen aber das liegt daran das ich es einfach nicht besser weiß...
Also viel Spass^^
MFG chris
EDIT:
@energy
Ich weiß das es für SJ eine gab...
Bin auch eine am entwickeln nur die Erkennungsrate liegt noch bei 45% also viel zu niedrig^^ Aber die captcha sind auch verdammt schwer ich glaube 4 Schriftarten und dann meist ne andere Schriftgröße usw...^^
Hi
Ja kenne ich und genau das ist das Thema ... das Programm gefällt mir nicht...
Ich möchte die Links gerne entschlüsselt sehen damit ich sie auch mal nem Kumpel weitergeben kann... auserdem möchte ich gerne sowas wie Automatik-Capcha-Encrypt einbauen.
und nen paar andere Hilfreiche Tools...
MFG chris
