Beiträge von GtaSpider
-
-
Hallo
Es gibt ein weiteren Faktor wenn ich mich nicht Irre: Also mein kleines Notebook (17" widescreen) hat eine auflösung von 1680x1050. Mein PC bildschirm (22" Widescreen) hat ebenfalls die Auflösung.
Mfg Spider
-
Hallo
Bei standart windows Dlls einfach nach dem Funktionnamen bei Google suchen. Falls ihr euch irgendwo eine DLL Downloaded, müsste auf der Seite wo ihr sie geladen habt irgendwo eine Anleitung stehen.
Sowas wie
funktion: Function1 resulttype:dword
funktion: Function2 resulttype:str
...Das einfach in AutoIt mit $aRet = DllCall("bla.dll","dword","Function1","str","Function2") ausführen. Dann gibt es ein 1D array mit 2 Einträgen zurück. Im ersten eintrag ist ($aRet[0]) ist der Return von Function1 als dword im 2. eintrag ($aRet[1]) ist der Retrun von Function2 als string
Mfg Spider
-
Hallo
@fabs: soll das ne beleidiung an BugFix sein?
Vista hat viele nachteile. Ein paar wurden durch das SP1 und patches behoben. Aber eben nicht alle.
Also, du brauchst auf jeden fall ein 64bit sys. 4gb ram @32bit sind (systemabhängig) 3,1-3,5 gb. Ich hab selbst 4gb aber nur Win32 (War noch zu faul mir ein 64bit sys raufzumachen^^)Windows XP vorteile: Sehr stabil, vielschichtig
Windows Vista vorteile: Schnellere datenverarbeitung, DX10, Design..
Aber ne andere möglichkeit ist auch Win Server 2008 raufzumachen.
Hab schon vieles gutes davon gehört. Es ist sozusagen Vista, aber am anfang auf XP Niveau. Dann kannst du dir das so anpassen wie du willst.
Musst dich aber schon ein bisschen mit OSs auskennenIch persönlich bevorzuge XP Pro 64bit SP3
Mfg Spider
-
Hallo
Ja das ist möglich.
Mehr werde ich dir hier nicht helfen, da dass meistens nicht erwünscht ist sich mehrmals einzuloggen. (SpammLogin)Mfg Spider
-
Hi Oscar
Das Resizing funktioniert in CHM dateien mit sogenannten HHChilds. (Also Childs von einer Hilfe^^). Von denen musst du einfach die Poistion/Breite verändern.
[autoit]
Hab dir mal was geschrieben:$iSetWidthOfChild2 = 280
[/autoit]
ControlMove("HTML Help","","[CLASS:HH Child; INSTANCE:2]",0,40,$iSetWidthOfChild2)
ControlMove("HTML Help","","[CLASS:HH Child; INSTANCE:1]",$iSetWidthOfChild2+4,40)Mfg Spider
-
-
Hallo
ByRef wird in fast allen Array funktionen benutzt. Ist für arrays etwas praktischer, da man so in der funktion das arary nicht neu schreiben muss sondern einfach überschreiben kann ganz ohne return
Mfg Spider
-
Hallo
Danke für die funktionen.
Funktionieren alle gut, weiter soMfg Spider
-
-
Hallo
Ich zocke CSS und 1.6. Aber ich persöhnlich fänd das jetzt nicht soo den weltuntergang, wenn die menschen immer gleich sterben, hauptsache sie sterben
Naja ihr wisst wie ich das meineMfg Spider
-
Hallo
So, wie versprochen: Hier ist eine RapidPrem UDF mit folgenden Funktionen:
- _RapidPrem_DownloadFile
- _RapidPrem_UploadFile
- _RapidPrem_GenerateAuth
- _RapidPrem_CheckAcc
- _RapidPrem_IsRapidLink
Die UDF kommt komplett ohne die IE.au3 geschweige denn dem Internet Explorer object oder sonst irgendeinem Browser Objekt zurecht.
Es ist 100%ig AutoIt und es funktioniert rein über die TCP/IP befehle.Hier die UDF:
RapidPrem.au3
[autoit]#include-once
[/autoit] [autoit][/autoit] [autoit];RapidPrem - by GtaSpider
[/autoit] [autoit][/autoit] [autoit]TCPStartup()
[/autoit] [autoit][/autoit] [autoit]
Global $hProg_Downl
Global $hLab_DownlPrz
Global $hGUI_Prog
Global $bDownloadActive = False;##########################
[/autoit] [autoit][/autoit] [autoit]
; RapidPrem - Corefunktionen
;##########################;===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _RapidPrem_DownloadFile
; Description:: Download a file with given Login
; Parameter(s): $sURL: Download Link
; $sFileSavePath: Path to save downloaded file
; $sUsername: Username
; $sPassword: Password
; [$sServer: [optional] Default Rapidshare Server]
; Requirement(s): TCP
; Return Value(s): True on Succes
; : False (0) on Failed
; : @error codes:
; : 1 - Is not a Valid Rapidshare link
; : 2 - Couldn't gerenarte Authentification code
; : 3 - couldn't ping Rapidshare server
; : 4 - Couldn't connect to rapidshare server on port 80
; : 5 - Error by sending string
; : 6 - Helpful for abort function: If $bDownloadActive = false while downloading
; : 7 - Not 200 OK received, Return: $sRecv
;
; Author(s): GtaSpider
;
;===============================================================================
;
Func _RapidPrem_DownloadFile($sURL, $sFileSavePath, $sUsername, $sPassword, $sServer = "1")
Local $sSendString, $sGet, $sAuth, $hSocket, $sRecv, $iExt, $aRegEx, $sRet
$sGet = _RapidPrem_IsRapidLink($sURL)
If @error Then Return SetError(1, 0, 0); No Valid Rapidshare Link
$sAuth = _RapidPrem_GenerateAuth($sUsername, $sPassword)
If @error Then Return SetError(2, 0, 0); Error by gerenating an Authentication string
Ping("rs" & $sServer & ".rapidshare.com")
If @error Then Return SetError(3, @error, 0); Error by pinging rapidshare server
$hSocket = TCPConnect(TCPNameToIP("rs" & $sServer & ".rapidshare.com"), 80)
If @error Then Return SetError(4, @error, 0)
$sSendString = "GET " & $sGet & " HTTP/1.1" & @CRLF & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" & @CRLF & _
"Accept-Language: de, en-gb;q=0.9, en;q=0.8" & @CRLF & _
"Authorization: Basic " & $sAuth & @CRLF & _
"Host: rs" & $sServer & ".rapidshare.com" & @CRLF & _
"Accept: text/html, image/gif, image/jpeg, *; q=.2, */*; q=.2" & @CRLF & _
"Connection: keep-alive" & @CRLF & @CRLF
_HTTPSend($sSendString, $hSocket)
If @error Then SetError(5, 0, 0)
$bDownloadActive = True
$sRecv = _HTTPRecv($hSocket, 50, 0, $sFileSavePath, 1)
If @error = 4 Then Return SetError(6, 0, 0)
$bDownloadActive = False
If @extended = 1 Then
If StringInStr($sRecv, "HTTP/1.1 302 Moved Temporarily") Then
$aRegEx = StringRegExp($sRecv, "Location: (?:http://)?rs(.*?).rapidshare", 3)
$sRet = _RapidPrem_DownloadFile($sURL, $sFileSavePath, $sUsername, $sPassword, $aRegEx[0])
Return SetError(@error, @extended, $sRet)
Else
Return SetError(7, 0, $sRecv)
EndIf
EndIf
Return True
EndFunc ;==>_RapidPrem_DownloadFile;===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _RapidPrem_UploadFile
; Description:: Upload a file with given Login
; Parameter(s): $sFilePath: Path to Uploadfile
; $sUsername: Username
; $sPassword: Password
; [$sServer: [optional] Default Rapidshare Server]
; Requirement(s): TCP
; Return Value(s): Received Header, @extended is Error return from HTTPRecv function
; : False (0) on Failed
; : @error codes:
; : 1 - Is not a Valid Rapidshare link
; : 2 - couldn't ping Rapidshare server
; : 3 - Couldn't connect to rapidshare server on port 80
; : 4 - Error by sending string
;
; Author(s): GtaSpider
;
;===============================================================================
;
Func _RapidPrem_UploadFile($sFilePath, $sUsername, $sPassword, $sServer = "1")
Local $sSendString, $sTemp, $sGet, $sAuth, $hSocket
If Not FileExists($sFilePath) Then Return SetError(1, 0, 0); No Valid File
Ping("rs" & $sServer & ".rapidshare.com")
If @error Then Return SetError(2, @error, 0); Error by pinging rapidshare server
$hSocket = TCPConnect(TCPNameToIP("rs" & $sServer & ".rapidshare.com"), 80)
If @error Then Return SetError(3, @error, 0)
$sTemp = @CRLF & _
"----------" & _GetTime() & @CRLF & _
'Content-Disposition: form-data; name="toolmode2"' & @CRLF & _
"" & @CRLF & _
"1" & @CRLF & _
"----------" & _GetTime() & @CRLF & _
'Content-Disposition: form-data; name="filecontent"; filename="' & $sFilePath & '"' & @CRLF & _
"Content-Type: multipart/form-data" & @CRLF & _
"Content-Transfer-Encoding: binary" & @CRLF & @CRLF & _
FileRead($sFilePath) & @CRLF & _
"----------" & _GetTime() & @CRLF & _
'Content-Disposition: form-data; name="login"' & @CRLF & _
"" & @CRLF & _
$sUsername & @CRLF & _
"----------" & _GetTime() & @CRLF & _
'Content-Disposition: form-data; name="password"' & @CRLF & _
"" & @CRLF & _
$sPassword & @CRLF & _
"----------" & _GetTime() & @CRLF
$sSendString = "POST /cgi-bin/upload.cgi HTTP/1.0" & @CRLF & _
"Connection: Keep-Alive" & @CRLF & _
"Content-Type: multipart/form-data; boundary=--------" & _GetTime() & @CRLF & _
"Content-Length: " & StringLen($sTemp) & @CRLF & _
"Host: rs." & $sServer & ".rapidshare.com" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"User-Agent: RapidUploader[v1,2]" & @CRLF & $sTemp; So tuen als ob wir den Rapiduploader v1,2 ausführen_HTTPSend($sSendString, $hSocket, Round(StringLen($sTemp) / 100))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If @error Then Return SetError(4, @error, 0)
$sRecv = _HTTPRecv($hSocket)
Return SetError(0, @error, $sRecv)
EndFunc ;==>_RapidPrem_UploadFile;##########################
[/autoit] [autoit][/autoit] [autoit]
; RapidPrem - Nebenfunktionen
;##########################
;Generates an Authentification code with Base64 Encoding
;by GtaSpider
Func _RapidPrem_GenerateAuth($sUsername, $sPassword)
Local $sRet = _Base64Encode($sUsername & ":" & $sPassword)
If Not StringLen($sRet) Then SetError(1, 0, 0)
Return $sRet
EndFunc ;==>_RapidPrem_GenerateAuth;Check Premium account
[/autoit] [autoit][/autoit] [autoit]
;by GtaSpider
Func _RapidPrem_CheckAcc($sUsername, $sPassword)
$S = _RapidPrem_DownloadFile("http://rapidshare.com/files/136642724/0.txt", @TempDir & "\0.txt", $sUsername, $sPassword)
If @error Then Return SetError(FileDelete(@TempDir&"\0.txt"), @error, $S)
If FileRead(@TempDir&"\0.txt") <> "CHECK_ACCOUNT" Then Return SetError(2,1,FileRead(@TempDir&"\0.txt")&"_"&FileDelete(@TempDir&"\0.txt"))
Return FileDelete(@TempDir&"\0.txt")
EndFunc ;==>_RapidPrem_CheckAcc;Check Rapidshare Link
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;by GtaSpider
Func _RapidPrem_IsRapidLink($sURL)
$aRegEx = StringRegExp($sURL, "(http://)?(rs.*)?rapidshare.com/files/\d*/[-a-zA-Z0-9\_\.]*\z")
If Not $aRegEx Then Return SetError(1, 0, 0)
$aRegEx = StringRegExp($sURL, "(http://)?(rs.*)?rapidshare.com(/files/.*?)\z", 3)
Return $aRegEx[2]
EndFunc ;==>_RapidPrem_IsRapidLink;##########################
[/autoit] [autoit][/autoit] [autoit]
; Sonsitge Funktionen
;##########################
;HTTP Send
;by GtaSpider
Func _HTTPSend($sSendString, $hSocket, $iBuffersize = 2904)
Local $sBuffer = $sSendString, $iProz
If $iBuffersize < 1024 Then $iBuffersize = 1024
While StringLen($sBuffer)
$iSend = 0
If $iBuffersize >= StringLen($sBuffer) Then $iBuffersize = StringLen($sBuffer) + 2
While $iSend < $iBuffersize
$iSend += TCPSend($hSocket, StringLeft($sBuffer, $iBuffersize))
If @error Then ExitLoop Beep() + 1
WEnd
$sBuffer = StringTrimLeft($sBuffer, $iBuffersize)
$iProz = Round(100 - (100 * StringLen($sBuffer) / StringLen($sSendString)))
GUICtrlSetData($hProg_Downl, $iProz)
GUICtrlSetData($hLab_DownlPrz, $iProz & "%")
WEnd
EndFunc ;==>_HTTPSend;HTML Recv
[/autoit] [autoit][/autoit] [autoit]
;by GtaSpider
Func _HTTPRecv($hSocket, $iSleep = 50, $iTimeOut = 20000, $sDwn = False, $iForceBinary = 0, $iBuffersize = 1024)
Local $sRecv, $sRet, $iErr = 0, $hTi, $hFiOp, $sFirstRecv, $iLen = 0, $iFirst = True
If $iTimeOut > 0 Then $hTi = TimerInit()
If $sDwn Then $hFiOp = FileOpen($sDwn, 17)
While 1
If $iTimeOut > 0 And TimerDiff($hTi) > $iTimeOut Then ExitLoop
$sRecv = TCPRecv($hSocket, $iBuffersize, $iForceBinary)
$iErr = @error
If $iErr Then ExitLoop
If $sDwn And (Not $bDownloadActive) Then ExitLoop
While StringLen($sRecv)
If $iForceBinary Then $sRecv = BinaryToString($sRecv)
If $iFirst Then
If Not StringInStr($sRecv, "HTTP/1.1 200 OK") Then
TCPCloseSocket($hSocket)
If $sDwn Then FileClose($hFiOp)
Return SetError(1, 1, "ERR:" & $sRecv)
EndIf
$sFirstRecv = $sRecv
If $sDwn Then $sRecv = StringTrimLeft($sRecv, StringInStr($sRecv, @CRLF & @CRLF)+4)
$iFirst = False
EndIf
If $sDwn Then
$iLen += StringLen($sRecv)
FileWrite($hFiOp, $sRecv)
Call("__SetProgress",$sFirstRecv,$iLen)
EndIf
If Not $sDwn Then $sRet &= $sRecv
$sRecv = TCPRecv($hSocket, $iBuffersize, $iForceBinary)
$iErr = @error
If $iErr Then ExitLoop 2
If $iTimeOut > 0 And TimerDiff($hTi) > $iTimeOut Then ExitLoop 2
If $sDwn And (Not $bDownloadActive) Then ExitLoop 2
WEnd
Sleep($iSleep)
WEnd
TCPCloseSocket($hSocket)
If $sDwn Then FileClose($hFiOp)
If $iForceBinary Then $sRet = "0x" & StringReplace($sRet, "0x", "")
If $iTimeOut > 0 And TimerDiff($hTi) > $iTimeOut Then Return SetError(2, 0, "Timeout")
If $iErr Then Return SetError(3, $iErr, $sRet)
If Not $bDownloadActive Then Return SetError(4, 0, 0)
Return $sRet
EndFunc ;==>_HTTPRecv;GetTime
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;by GtaSpider
Func _GetTime()
Return @MON & @MDAY & StringRight(@YEAR, 2) & @HOUR & @MIN & @SEC & "044";Eigentlich MSec aber warte auf naecchste Stable
EndFunc ;==>_GetTime;Base64 Encoding
[/autoit] [autoit][/autoit] [autoit]
;By Ward
Func _Base64Encode($Data)
Local $Opcode = "0x5589E5FF7510535657EB1A8B5D088B7DFC8B4D0CE81F000000834508038345FC04836D0C03837D0C007FE08B75FCC606005F5E5BC9C21000E8410000004142434445464748494A4B4C4D4E4F505152535455565758595A6162636465666768696A6B6C6D6E6F707172737475767778797A303132333435363738392B2F005A0FB633C1EE0201D68A06880731C083F901760C0FB6430125F0000000C1E8040FB63383E603C1E60409C601D68A0688470183F90176210FB6430225C0000000C1E8060FB6730183E60FC1E60209C601D68A06884702EB04C647023D83F90276100FB6730283E63F01D68A06884703EB04C647033DC3"
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)Local $Input = DllStructCreate("byte[" & BinaryLen($Data) & "]")
[/autoit] [autoit][/autoit] [autoit]
DllStructSetData($Input, 1, $Data)Local $Ouput = DllStructCreate("char[" & Int(BinaryLen($Data) * 4 / 3) + 4 & "]")
[/autoit] [autoit][/autoit] [autoit]DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
[/autoit] [autoit][/autoit] [autoit]
"ptr", DllStructGetPtr($Input), _
"int", BinaryLen($Data), _
"ptr", DllStructGetPtr($Ouput), _
"int", 0)$Ret = DllStructGetData($Ouput, 1)
[/autoit]
$Input = 0
$Ouput = 0
$CodeBuffer = 0
Return $Ret
EndFunc ;==>_Base64EncodeEin "Beispiel" (PR3M - Rapidshare PremiumAccount sammler) + UDF ist im Annhang
Würde mich sehr über Kommentare freuen
Mfg Spider
-
Hallo
Volume Rad kannst du mit HotKeySet("{VOLUME_UP}","_VolumeRadNachRechts") und mit HotKeySet("{VOLUME_DOWN}","_VolumeRadNachLinks") steuern
Mfg Spider
-
Hallo
Jetzt wirds langsam verrückt
Hab fast genau das gleiche vor 4 Tagen geschrieben
Klick michHabs aber nicht hier gepostet, weil ich mir gedacht hab, dass das hier niemand braucht, sry :>
Mfg Spider
-
Hey^^
Ist ja lustig bin grad dabei sowas ähnliches zu machen: Ein Rapidshare Uploader + Downloader der vollkommen ohne Browser auskommt und für Premium User ist
Glaub mir, es ist sehr kompliziert, ich selbst hab da jetzt ca 5 stunden dran gesessen.
Ist jetzt auch fertig, halt nurnoch GUI und paar kleine verschönerungen und dann werd ich die "RapidPrem.au3" udf hier postenMfg Spider
-
Hallo
Gun-Food ich liebe dich
Also, dass prgoramm hat angezeigt, dass 2 prozesse auf psweb.gamspy.com zugreifen. Einmal [SystemProcess]:0 (?!) und einmal AVKProxy^^ AVK ist mein VirenScanner/wächter.
Es hat zwar keine richtige Firewall, dafür kontrolliert er alles was über Port 80 rein und auch rausgeht.
Tja, Gamespy läuft auch über Port 80 und es waren wahrscheinlich zuviele Daten die übertragen wurden, also ist er komplett Abgestürzt.
Lösung: Einfach den AVK Web Wächter Beenden^^Vielen Dank an alle
Mfg Spider
-
Hallo
2 While schleifen parallel, also du hast z.B.
1, Schleife:
While 1
$x +=1
Wend
2. schleife
While 1
$y += 1
wendDann mach einfach
While 1
$x +=1
$y += 1
Wendund schon hast du eine
Falls du jetzt richtiges Multithreading brauchst: Geht mit autoit nicht direkt, gab aber mal ne UDF dafür, musste suche oben benutzen.
Mfg Spider
-
1. Spammer^^
und 2. Ich persöhnlich habe auch erst vor 2-3 monaten angefangen RegEx zulernen.Mfg Spider
-
Hallo
Richtig "." macht keine LF/CRs, ausser du setzt den befehel (?s) ganz am anfang:
[autoit]#include <Array.au3>
[/autoit]
Local $s_check = '<td width="73"">Der Text:</div></td>' & @LF & @TAB & @TAB & _
'<td valign="top">' & @LF & @TAB & @TAB & @TAB & @TAB & @TAB & @TAB & _
' Dies hier möchte ich haben! ' & @LF & @LF & @TAB & '</td>' & @LF & @TAB & @TAB & '</tr>' & @TAB & @LF
Local $AS_RET = StringRegExp($s_check, '(?s)(?i):</div></td>(.*?)</tr>', 3)
MsgBox(64, "Error", @error)
_ArrayDisplay($AS_RET)Mfg Spider
-
Hallo
Also du rufst die Datei in einem AutoIt Skript auf. Von dieser DAtei möchtest du jetzt das haben was in der konsole ist, richtig?
[autoit]
Falls ja ganz einfach:Run("cmdz.exe","",@SW_HIDE,2+4)
[/autoit]
While ProcessExists($hPID)
GuiCtrlSEtDAta($hEdit,STDOutread($hPID),1)
Wend
Hab ich jetzt schnell hier geschrieben also nicht ausgetestetMfg Spider