Hallo
Mh, kannst du uns zumindest den div tag schicken?
Mfg Spider
Hallo
Mh, kannst du uns zumindest den div tag schicken?
Mfg Spider
Unter diesem Hochhaus hofft mein Handy auf GUTEN Empfang.
Hallo
Ganz einfach ohne Anführungszeichen in die INI schreiben.
#include <GUIConstants.au3>
#include <Array.au3>
$Anzahl = 5
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 777, 20*$Anzahl+60, 193, 125)
$Save = GUICtrlCreateButton("Speichern", 670, 20*$Anzahl+35,80,20)
$Graphic1 = GUICtrlCreateGraphic(160, 24, 17, 17)
$Graphic2 = GUICtrlCreateGraphic(192, 24, 17, 17)
$Graphic3 = GUICtrlCreateGraphic(248, 24, 17, 17)
$Graphic4 = GUICtrlCreateGraphic(288, 24, 17, 17)
$Graphic5 = GUICtrlCreateGraphic(328, 24, 17, 17)
$Graphic6 = GUICtrlCreateGraphic(368, 24, 17, 17)
$Graphic7 = GUICtrlCreateGraphic(440, 24, 17, 17)
$Graphic8 = GUICtrlCreateGraphic(480, 24, 17, 17)
$Graphic9 = GUICtrlCreateGraphic(520, 24, 17, 17)
$Graphic10 = GUICtrlCreateGraphic(560, 24, 17, 17)
$Graphic11 = GUICtrlCreateGraphic(632, 24, 17, 17)
$Graphic12 = GUICtrlCreateGraphic(672, 24, 17, 17)
$Graphic13 = GUICtrlCreateGraphic(744, 24, 17, 17)
$Label2 = GUICtrlCreateLabel("Label2", 8, 8, 60, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
Dim $CheckST[$Anzahl+1], $CheckSC[$Anzahl+1], $CheckAK[$Anzahl+1], $CheckBS[$Anzahl+1], $CheckSP[$Anzahl+1], $CheckLK[$Anzahl+1], $CheckBB[$Anzahl+1], $CheckSK[$Anzahl+1], $CheckRA[$Anzahl+1], $CheckKA[$Anzahl+1], $CheckAG[$Anzahl+1], $RadioO[$Anzahl+1], $RadioD[$Anzahl+1]
For $i = 1 To $Anzahl ;Create Checkbox
$Label1 = GUICtrlCreateLabel("Label" & $i, 8, 17+$i*20, 124, 17)
GUIStartGroup()
$RadioO[$i] = GUICtrlCreateRadio("", 160, 17+$i*20, 17, 17)
$RadioD[$i] = GUICtrlCreateRadio("", 192, 17+$i*20, 17, 17)
$CheckST[$i] = GUICtrlCreateCheckbox("", 248, 17+$i*20, 17, 17)
GUICtrlSetState($CheckST[$i],IniRead(@ScriptDir & "\temp.ini",$i,"ST",""))
$CheckSC[$i] = GUICtrlCreateCheckbox("", 288, 17+$i*20, 17, 17)
$CheckAK[$i] = GUICtrlCreateCheckbox("", 328, 17+$i*20, 17, 17)
$CheckBS[$i] = GUICtrlCreateCheckbox("", 368, 17+$i*20, 17, 17)
$CheckSP[$i] = GUICtrlCreateCheckbox("", 440, 17+$i*20, 17, 17)
$CheckLK[$i] = GUICtrlCreateCheckbox("", 480, 17+$i*20, 17, 17)
$CheckBB[$i] = GUICtrlCreateCheckbox("", 520, 17+$i*20, 17, 17)
$CheckSK[$i] = GUICtrlCreateCheckbox("", 560, 17+$i*20, 17, 17)
$CheckRA[$i] = GUICtrlCreateCheckbox("", 632, 17+$i*20, 17, 17)
$CheckKA[$i] = GUICtrlCreateCheckbox("", 672, 17+$i*20, 17, 17)
$CheckAG[$i] = GUICtrlCreateCheckbox("", 744, 17+$i*20, 17, 17)
Next
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
For $i = 1 To $Anzahl
Select ;RADIO
Case $RadioO[$i] And BitAND(GUICtrlRead($RadioO[$i]), $GUI_CHECKED) = $GUI_CHECKED
GUICtrlSetState($RadioO[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckST[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckSC[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckAK[$i],$GUI_CHECKED)
GUICtrlSetState($CheckBS[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckSP[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckLK[$i],$GUI_CHECKED)
GUICtrlSetState($CheckBB[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckSK[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckRA[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckKA[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckAG[$i],$GUI_UNCHECKED)
Case $RadioD[$i] And BitAND(GUICtrlRead($RadioD[$i]), $GUI_CHECKED) = $GUI_CHECKED
GUICtrlSetState($RadioD[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckST[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckSC[$i],$GUI_CHECKED)
GUICtrlSetState($CheckAK[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckBS[$i],$GUI_CHECKED)
GUICtrlSetState($CheckSP[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckLK[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckBB[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckSK[$i],$GUI_CHECKED)
GUICtrlSetState($CheckRA[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckKA[$i],$GUI_UNCHECKED)
GUICtrlSetState($CheckAG[$i],$GUI_UNCHECKED)
EndSelect
Next
If $nMsg = $GUI_EVENT_CLOSE Then
Exit
EndIf
If $nMsg = $Save Then ;SAVE
For $i = 1 To $Anzahl
If $CheckST[$i] And BitAND(GUICtrlRead($CheckST[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"ST",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"ST",$GUI_UNCHECKED)
EndIf
If $CheckSC[$i] And BitAND(GUICtrlRead($CheckSC[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"SC",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"SC",$GUI_UNCHECKED)
EndIf
If $CheckAK[$i] And BitAND(GUICtrlRead($CheckAK[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"AK",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"AK",$GUI_UNCHECKED)
EndIf
If $CheckBS[$i] And BitAND(GUICtrlRead($CheckBS[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"BS",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"BS",$GUI_UNCHECKED)
EndIf
If $CheckSP[$i] And BitAND(GUICtrlRead($CheckSP[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"SP",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"SP",$GUI_UNCHECKED)
EndIf
If $CheckLK[$i] And BitAND(GUICtrlRead($CheckLK[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"LK",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"LK",$GUI_UNCHECKED)
EndIf
If $CheckBB[$i] And BitAND(GUICtrlRead($CheckBB[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"BB",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"BB",$GUI_UNCHECKED)
EndIf
If $CheckSK[$i] And BitAND(GUICtrlRead($CheckSK[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"SK",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"SK",$GUI_UNCHECKED)
EndIf
If $CheckRA[$i] And BitAND(GUICtrlRead($CheckRA[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"RA",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"RA",$GUI_UNCHECKED)
EndIf
If $CheckKA[$i] And BitAND(GUICtrlRead($CheckKA[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"KA",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"KA",$GUI_UNCHECKED)
EndIf
If $CheckAG[$i] And BitAND(GUICtrlRead($CheckAG[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite(@ScriptDir & "\temp.ini",$i,"AG",$GUI_CHECKED)
Else
IniWrite(@ScriptDir & "\temp.ini",$i,"AG",$GUI_UNCHECKED)
EndIf
Next
EndIf
WEnd
Mfg Spider
Hallo
Die Formel lautet immer
Also so:
Opt("TrayMenuMode", 1)
[/autoit] [autoit][/autoit] [autoit]AutoItSetOption("Mustdeclarevars", 1) ;Alle Variablen müssen deklariert werden
[/autoit] [autoit][/autoit] [autoit]Dim $versuche ;Hier werden die Variablen deklariert, zur Übersicht alle einzeln und in der richtigen Reihenfolge
Dim $zaehler
Dim $punktnummer
Dim $x
Dim $y
Dim $e
Dim $anteil
Dim $annaeherung
Dim $Hauptfenster
Dim $Label1
Dim $Anweisung
Dim $CR_me
Dim $CR_Pi
Dim $Input_versuchsanzahl
Dim $button_berechnen
Dim $nMsg
Dim $schliessen
Dim $Fortschrittsbalken
Dim $fortschritt_prozent
$zaehler = 0 ;Vorsichtshalber wird der Zähler auf NULL gesetzt
#include <GUIConstants.au3>
#include <misc.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\leuprecht martin
$Hauptfenster = GUICreate("Phi Näherungswert-Berechnung by Roman Leuprecht", 633, 447, 193, 125)
GUISetFont(12, 400, 0, "Calibri")
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Näherungswert-Berechnung für Pi mit dem Monte-Carlo-Verfahren", 24, 48, 571, 30)
GUICtrlSetFont(-1, 16, 400, 0, "Calibri")
$Anweisung = GUICtrlCreateLabel("Geben sie hier die Anzahl der zu tätigenden Versuche an:", 16, 136, 374, 23)
$CR_me = GUICtrlCreateLabel("Copyright Roman Leuprecht", 72, 376, 183, 23)
$Input_versuchsanzahl = GUICtrlCreateInput("Versuchsanzahl", 400, 136, 145, 27)
GUICtrlSetCursor(-1, 5)
$button_berechnen = GUICtrlCreateButton("Näherungswert berechnen", 200, 192, 233, 81, 0)
GUICtrlSetCursor(-1, 0)
$schliessen = GUICtrlCreateButton("Fenster schließen", 368, 368, 161, 33, 0)
GUICtrlSetCursor(-1, 2)
$Fortschrittsbalken = GUICtrlCreateProgress(24, 304, 569, 41)
GUICtrlSetCursor(-1, 7)
GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ### Form=c:\dokumente und einstellungen\leuprecht martin
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button_berechnen
$versuche = GUICtrlRead($Input_versuchsanzahl)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Do
$x = Random() ;Die Zufallskoordinate X wird generiert
$y = Random() ;Die Zufallskoordinate Y wird generiert
$e = Sqrt($x ^ 2 + $y ^ 2)
If ($e <= 1) Then $zaehler = $zaehler + 1 ;Prüfung ob in Kreis oder nicht
$punktnummer = $punktnummer + 1 ;Punktnummer wird erhöht
$fortschritt_prozent = 100 * $punktnummer / $versuche
GUICtrlSetData($Fortschrittsbalken, $fortschritt_prozent)
Until $punktnummer = $versuche ;Bedingung, wann Schluss ist(wenn die Punktnummer so hoch ist wie die Versuchsanzahl)
[/autoit] [autoit][/autoit] [autoit]$anteil = $zaehler / $versuche ;Die relative Häufigkeit, ob ein Punkt im Kreis landet oder nicht, wird berechnet
$annaeherung = 4 * $anteil ;die rel. Häufigkeit wird mit 4 multipliziert, um den ungefähren Wert für Phi zu erlangen
MsgBox(0 + 48, "Annäherungswert Phi", $annaeherung) ;Nun noch die Ausgabe in einem Info-Fenster
ContinueLoop (1)
Case $schliessen
Exit
EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit]Mfg Spider
Hallo
Wie währe es wenn du uns die url gibst? weil es gibt bestimmt einen anderen Weg.
Mfg Spider
Hallo
Die Hilfe ist schon was tolles
StringSplit($Old, @CRLF, 1)
Mfg Spider
Hallo
Nein, das ist schon lange nicht mehr. Das war früher. Der IE ist sehr nervend, da sehr langsam, softwareabhängig usw. Ich mach das jetzt komplett über TCP/IP und dem HTTPRequest
MfG Spider
Hallo
Wofür brauchst du das denn?
Mfg Spider
Hallo
Guck dir das mal an: http://www.autoitscript.com/forum/index.php?showtopic=31708&hl=inpout32.dll
Mfg Spider
Whups, sehe in der Hilfe grad das hier:
Function HotKeySetThe following hotkeys cannot be set:
...
NumPad's Enter Key
Instead, use {Enter} which captures both Enter keys on the keyboard.
...
Mfg Spider
Hallo
Ihr immer mit eurem IsPressed
Der Vorteil von IsPressed ist, dass er nur sagt ob gedrückt wurde oder nicht
Bei HotKeySet wird die Taste abgefangen bevor sie Windows erreicht.
Also einfach
HotKeySet("{NUMPADENTER}","_tab")
While 1
sleep(5000)
wend
Func _tab()
Send("{tab}")
endfunc
Nicht getestet
Mfg Spider
Hallo
Ich hab selbst mal eine UDF geschrieben. Ich möchte sie hier nicht Posten, aber ich denke niemand hat was dagegen wenn ich diese eine Funktion hier Poste.
Der Vorteil ist, es ist viel schneller als der InternetExplorer und gibt genauen Error zurück falls einer vorhanden!
Wenn du es weiter benutzen willst, natürlich bitte mein Namen drinbehalten
$aPR3M = _RapidPrem_ReturnAccount("LOGIN", "PASSWORD")
[/autoit] [autoit][/autoit] [autoit]Switch @error
Case 1, 2, 3
_Message("Konnte nicht zu https://rapidshare.com verbinden" & @CRLF & "Error Code: " & @error, 262144)
Case 4
_Message("Ihr Account wurde gefunden, aber das Passwort ist inkorrekt!", 262144)
Case 5
_Message("Ihr Account wurde nicht gefunden!", 262144)
Case 6, 7, 13
_Message("Sie können sich nicht mit der Premiumzone verbinden. Möglicherweise wurde ihr Account vom Abuse-Team gesperrt", 262144)
EndSwitch
MsgBox(0, "By GtaSpider", "RapidPoints: " & $aPR3M[0] & @CRLF & _
"RapidPoints PU: " & $aPR3M[1] & @CRLF & _
"Expiration date: " & $aPR3M[2] & @CRLF & _
"Traffic Left: " & $aPR3M[3] & "kb")
Func _Message($sText,$iOpt = 0,$sTitle = "By GtaSpider")
Exit MsgBox(48+$iOpt,$sTitle,$sText)
EndFunc
;Return Account informations in an Array
;On Succes: $aRet[0] = RapidPoints;
; $aRet[1] = RapidPoints PU
; $aRet[2] = Expiration date
; $aRet[3] = Traffic left in KB
;Error 1 if InternetOpen can't initalize
;Error 2 if InternetOpenUrl returns error
;Error 3 if InternetFileRead return nothing
;Error 4 if Account be found but password is incorrect
;Error 5 if Account not found
;Error > 5 if cant read source
;by GtaSpider
Func _RapidPrem_ReturnAccount($sUsername, $sPassword)
Local $hDll = DllOpen("wininet.dll")
Local $sUserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1", $hInternet, $hRequest, $iBufferSize = 1024 * 20
Local $tNumberOfBytesRead = DllStructCreate("dword"), $tBuffer = DllStructCreate("byte[" & $iBufferSize & "]"), $sReadFile, $aRegEx, $aRet[4], $avResult, $iReadBuffer, $iErr
Local $hInternet = DllCall($hDll, _
"ptr", "InternetOpen", _
"wstr", $sUserAgent, _
"dword", 0, _
"ptr", 0, _
"ptr", 0, _
"dword", 0)
If @error Then Return SetError(1, 0, 0)
$hInternet = $hInternet[0]
Local $hHTTPReq = DllCall($hDll, _
"ptr", "InternetOpenUrlW", _
"ptr", $hInternet, _
"wstr", "https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login=" & $sUsername & "&password=" & $sPassword, _
"ptr", 0, _
"dword", 0, _
"dword", 0, _
"ptr", 0)
If @error Then Return SetError(2, 0, 0)
$hHTTPReq = $hHTTPReq[0]
Do
$tNumberOfBytesRead = DllStructCreate("dword")
$tBuffer = DllStructCreate("byte[" & $iBufferSize & "]")
Local $avResult = DllCall($hDll, _
"int", "InternetReadFile", _
"ptr", $hHTTPReq, _
"ptr", DllStructGetPtr($tBuffer), _
"dword", $iBufferSize, _
"ptr", DllStructGetPtr($tNumberOfBytesRead))
If @error Or Not $avResult[0] Then ExitLoop
$iReadBuffer = DllStructGetData($tNumberOfBytesRead, 1)
$sReadFile &= BinaryToString(BinaryMid(DllStructGetData($tBuffer, 1), 1, $iReadBuffer))
Until Not $iReadBuffer
If Not StringLen($sReadFile) Then Return SetError(3, 0, 0)
If StringInStr($sReadFile, "The Account has been found, but the password is incorrect.") Then Return SetError(4, 0, 0)
If StringInStr($sReadFile, "Your Premium Account has not been found.") Then Return SetError(5, 0, 0)
$aRegEx = StringRegExp($sReadFile, '(?s)<td>RapidPoints:</td>.*?<b>(.*?)</b>', 3)
If Not IsArray($aRegEx) Then
$aRet[0] = False
$iErr += 6
Else
$aRet[0] = Number($aRegEx[0])
EndIf
$aRegEx = StringRegExp($sReadFile, '(?s)>RapidPoints PU</a>:</td>.*?<b>(.*?)</b>', 3)
If Not IsArray($aRegEx) Then
$aRet[1] = False
$iErr += 7
Else
$aRet[1] = $aRegEx[0]
EndIf
$aRegEx = StringRegExp($sReadFile, '(?s)Expiration date:</td>.*?<b>(.*?)</b>', 3)
If Not IsArray($aRegEx) Then
$aRet[2] = False
$iErr += 8
Else
$aRet[2] = _RapidDateToCalc($aRegEx[0])
EndIf
$aRegEx = StringRegExp($sReadFile, '(?s)Traffic left:</td>.*?Math\.ceil\((.*?)/1000\)', 3)
If Not IsArray($aRegEx) Then
$aRet[3] = False
$iErr += 9
Else
$aRet[3] = $aRegEx[0]
EndIf
Return SetError($iErr, 0, $aRet)
EndFunc ;==>_RapidPrem_ReturnAccount
;RapidDateToCalc (e.g.: Sun, 14. Sep 2008 --> 2008/09/14)
;by GtaSpider
Func _RapidDateToCalc($sRapidDate)
Local $aMonthNumberAbbrev[13] = ["", "Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dec"]
$sRapidDate = StringSplit(StringTrimLeft($sRapidDate, StringInStr($sRapidDate, ",") + 1), " ")
Local $sRet = StringTrimLeft("00", StringLen(StringTrimRight($sRapidDate[1], 1))) & StringTrimRight($sRapidDate[1], 1) & ".", $i
For $i = 1 To 12
If $sRapidDate[2] = StringLeft($aMonthNumberAbbrev[$i], 3) Then $sRet &= StringTrimLeft("00", StringLen($i)) & $i & "."
Next
$sRet &= $sRapidDate[3]
Return $sRet
EndFunc ;==>_RapidDateToCalc
Mfg Spider
Alles alles gute auch von mir! Vielen Dank für alles ohne dich währen wir (im warsten Sinne des Wortes) garnichts
Mit sehr freundlichen Grüßen ans geburtstatgs"kind" Spider
Hallo
Sowas mal in OpenGL o.ä. zu schreiben, dass währe mal was Weil bei der Version ist natürlich der Nachteil das du sehr viele PNG images brauchst
Aber trotzdem hübsche Umsetzung
Mfg Spider
Hallo
IP sollte eig auch klappen.
Falls nicht, benutz einfach die Funktion _TCPNameToIP
Mfg Spider
Hallo
So, Sorucecode für neue Version ist online.
Mfg Spider
Was wird das denn jetzt schon wieder?
Ich wills garnicht wissen
$file = FileOpen("bla.txt", 1)
FileWriteLine($file, @CRLF&@HOUR&":"&@MIN&":"&@SEC&": "& $what2log)
Fileclose($file)
kannst du auch einfach in FileWriteLine("bla.txt", @CRLF&@HOUR&":"&@MIN&":"&@SEC&": "& $what2log)
umwandeln, da FieWrite automatisch die Datei öffnet und schliesst, wenn ein Pfad angegeben ist. (Hilfe lesen..)
Mfg spider
Hm für Boolean ( False/True) kommt doch eigentlich ein v hin, oder?
Also vBool = False z.B.
Mfg Spider
Hallo
Klar geht das in Ordnung
Hm, gab schon öfter mal im Forum die anfrage, wer sucht der findet
Mfg Spider
Hallo
Dumme Frage: Warum?!
Mfg Spider
p.s.: es heißt DIE Bildschirmtastatur