Ohne mir da jetzt lange gedanken drüber zu machen - pack die Städte und die dazugehörigen Daten(Preise etc.) in ein Array. Damit hast du per Index immer und überall Zugriff auf die entsprechenden Daten der ausgewählten Stadt. Die ganzen Labes und Combos lassen sich dann ebenfalls durch FOR Schleifen befüllen. Dürfte das ganze deutlich übersichtlicher und haändlicher machen.
Beiträge von i2c
-
-
'nen Taschenrechner, einen Terminkalender .... bitte keinen Webbrowser alle _IEGedöns.
-
Programmier was du willst und stell es dann hier ins Forum. Dann sind wir alle deine Mentoren.
-
Ohne deinen Tatendrang bremsen zu wollen - http://www.httrack.com/
Man kann es natürlich auch in AUtoIt umsetzen, dann aber doch besser ohne FF.au3. Im Prinzip ist es nur ein Skript, das die Seite runterläd, Links filtert und auswertet, bei Bildlinks das Bild läd und den Link umschreibt, entscheidet ob ein Link noch zum Context der Seite gehört oder nicht ....
Von der Sache her nicht kompliziert aber wenn man es richtig machen will, eine unheimliche Fleissarbeit.
-
Wohl kaum. Die allermeisten Forensysteme arbeiten irgendwie mit PHP,
Das spielt keine Rolle. Bei einem Download der Seite, z.B. per InetGet() wird nicht der PHP Sourcecode geladen, sondern das HTML Markup der Seite. Alles andere wäre auch höchst bedenklich. -
Assoziative Arrays ... wie ich sie vermisse.
Schau mal hier - http://www.autoitscript.com/forum/topic/12…tive-array-udf/ - http://www.autoitscript.com/forum/topic/59…rray-functions/ -
-
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <array.au3>
;~ ===================================================================================================================================
$vDLL = 'user32.dll'
$Masze = GUICreate("Maße", 490, 440, 400, 180)
$bImg = GUICtrlCreatePic("C:\Users\Stoani\Pictures\asdasd.jpg", 0, 0, 490, 440)
GUICtrlSetState(-1, $GUI_DISABLE)
$frage_button = GUICtrlCreateButton("Neue Frage", 10, 392, 196, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
$loesung_button = GUICtrlCreateButton("Lösung zeigen", 10, 352, 97, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
$Antwort = GUICtrlCreateInput("", 16, 184, 185, 27, BitOR($ES_CENTER, $WS_BORDER), 0)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUICtrlSetColor(-1, 0x000000)
$Liste = GUICtrlCreateEdit("", 216, 16, 265, 409, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $WS_BORDER), 0)
GUICtrlSetData(-1, "Noch keine Frage gestellt!")
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Frage = GUICtrlCreateEdit("", 16, 16, 185, 57, BitOR($ES_CENTER, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_BORDER), 0)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUICtrlSetColor(-1, 0x000000)
$go_button = GUICtrlCreateButton("Go!", 109, 352, 97, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUISetState()
;~ ===================================================================================================================================
Global $Read, $index, $i = 0, $counter = 0
;~ ====================================
Global $mA[14][3]$mA[0][0] = "Wie lange ist der Korpus ?"
[/autoit] [autoit][/autoit] [autoit]
$mA[0][1] = "356mm"
$mA[1][0] = "Wie lange ist die Korpusmensur ?"
$mA[1][1] = "195mm"
$mA[2][0] = "Wie lange ist die Halsmensur ?"
$mA[2][1] = "130mm"
$mA[3][0] = "Wieviel beträgt die Halsstärke am Sattel(exklusive Griffbrett)?"
$mA[3][1] = "13mm"
$mA[4][0] = "Wieviel beträgt die Halsstärke vor dem Halsfuß(exklusive Griffbrett)?"
$mA[4][1] = "14mm"
$mA[5][0] = "Wieviel beträgt die Halsstärke am Sattel(inklusive Griffbrett)?"
$mA[5][1] = "19mm"
$mA[6][0] = "Wieviel beträgt die Halsstärke am Sattel(inklusive Griffbrett)?"
$mA[6][1] = "21mm"
$mA[7][0] = "Wie hoch ist der Randüberstand ?"
$mA[7][1] = "6mm"
$mA[8][0] = "Wie lange ist das Griffbrett ?"
$mA[8][1] = "270mm"
$mA[9][0] = "Wie breit ist das Griffbrett am Sattel ?"
$mA[9][1] = "23,5mm"
$mA[10][0] = "Wie breit ist das Griffbrett am Hals. -Korpusübergang ?"
$mA[10][1] = "42mm"
$mA[11][0] = "Wie hoch ist der Griffbrettrand ?"
$mA[11][1] = "5mm"
$mA[12][0] = "Wie stark ist die Griffbretthohlung unter der Diskantsaite ?"
$mA[12][1] = "0,5mm"
$mA[13][0] = "Wie stark ist die Griffbretthohlung unter der Basssaite ?"
$mA[13][1] = "0,7mm"For $i = 0 To UBound($mA) - 1
[/autoit]
$mA[$i][2] = 0
Next
;~ =======================================================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $frage_button
$counter += 1
If $counter <= UBound($mA) Then
Do
$index = Random(0, UBound($mA) - 1, 1)
Until $mA[$index][2] = 0
$cRead = $mA[$index][0]
GUICtrlSetData($Frage, $cRead)
$mA[$index][2] = 1 ; setzt Frage als bereits gestellt
Else
MsgBox(0, 0, "Keine weiteren Fragen vorhanden")
EndIf
Case $loesung_button
$i = $i + 1
ConsoleWrite($i)
If $i = 10 Then
MsgBox(0, "", "Du hast bereits 10mal die Lösung gebraucht! Bitte nochmal probieren!")
$i = 0
Exit
EndIf
GUICtrlSetData($Liste, "Die Lösung ist: " & $mA[$index][1])
Case $go_button
$Read = GUICtrlRead($Antwort)
If $Read <> $mA[$index][1] Then
GUICtrlSetData($Liste, "Falsche Antwort!" & @CRLF & "Lösung anzeigen?")
ElseIf $Read = $mA[$index][1] Then
GUICtrlSetData($Liste, "Das Maß beträgt " & $Read & "!" & @CRLF & "Richtige Antwort!")
EndIf
EndSwitch
WEnd
Wählt eine Frage nur, wenn es noch ungestellte Fragen gibt. -
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <array.au3>
;~ ===================================================================================================================================
$vDLL = 'user32.dll'
$Masze = GUICreate("Maße", 490, 440, 400, 180)
$bImg = GUICtrlCreatePic("C:\Users\Stoani\Pictures\asdasd.jpg", 0, 0, 490, 440)
GUICtrlSetState(-1, $GUI_DISABLE)
$frage_button = GUICtrlCreateButton("Neue Frage", 10, 392, 196, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
$loesung_button = GUICtrlCreateButton("Lösung zeigen", 10, 352, 97, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
$Antwort = GUICtrlCreateInput("", 16, 184, 185, 27, BitOR($ES_CENTER, $WS_BORDER), 0)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUICtrlSetColor(-1, 0x000000)
$Liste = GUICtrlCreateEdit("", 216, 16, 265, 409, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $WS_BORDER), 0)
GUICtrlSetData(-1, "Noch keine Frage gestellt!")
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Frage = GUICtrlCreateEdit("", 16, 16, 185, 57, BitOR($ES_CENTER, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_BORDER), 0)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUICtrlSetColor(-1, 0x000000)
$go_button = GUICtrlCreateButton("Go!", 109, 352, 97, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Tw Cen MT Condensed")
GUISetState()
;~ ===================================================================================================================================
Global $Read, $index, $i = 0
;~ ====================================
Global $mA[14][3]$mA[0][0] = "Wie lange ist der Korpus ?"
[/autoit]
$mA[0][1] = "356mm"
$mA[0][2] = 0
$mA[1][2] = 0
$mA[2][2] = 0
$mA[3][2] = 0
$mA[4][2] = 0
$mA[5][2] = 0
$mA[6][2] = 0
$mA[7][2] = 0
$mA[8][2] = 0
$mA[9][2] = 0
$mA[10][2] = 0
$mA[11][2] = 0
$mA[12][2] = 0
$mA[13][2] = 0
$mA[1][0] = "Wie lange ist die Korpusmensur ?"
$mA[1][1] = "195mm"
$mA[2][0] = "Wie lange ist die Halsmensur ?"
$mA[2][1] = "130mm"
$mA[3][0] = "Wieviel beträgt die Halsstärke am Sattel(exklusive Griffbrett)?"
$mA[3][1] = "13mm"
$mA[4][0] = "Wieviel beträgt die Halsstärke vor dem Halsfuß(exklusive Griffbrett)?"
$mA[4][1] = "14mm"
$mA[5][0] = "Wieviel beträgt die Halsstärke am Sattel(inklusive Griffbrett)?"
$mA[5][1] = "19mm"
$mA[6][0] = "Wieviel beträgt die Halsstärke am Sattel(inklusive Griffbrett)?"
$mA[6][1] = "21mm"
$mA[7][0] = "Wie hoch ist der Randüberstand ?"
$mA[7][1] = "6mm"
$mA[8][0] = "Wie lange ist das Griffbrett ?"
$mA[8][1] = "270mm"
$mA[9][0] = "Wie breit ist das Griffbrett am Sattel ?"
$mA[9][1] = "23,5mm"
$mA[10][0] = "Wie breit ist das Griffbrett am Hals. -Korpusübergang ?"
$mA[10][1] = "42mm"
$mA[11][0] = "Wie hoch ist der Griffbrettrand ?"
$mA[11][1] = "5mm"
$mA[12][0] = "Wie stark ist die Griffbretthohlung unter der Diskantsaite ?"
$mA[12][1] = "0,5mm"
$mA[13][0] = "Wie stark ist die Griffbretthohlung unter der Basssaite ?"
$mA[13][1] = "0,7mm"
;~ =======================================================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $frage_button
Do; sucht eine Zahl, bis eine noch nicht gestellte Frage gefunden wurde
$index = Random(0, UBound($mA) - 1, 1)
Until $mA[$index][2] = 0
$cRead = $mA[$index][0]
GUICtrlSetData($Frage, $cRead)
$mA[$index][2] = 1 ; setzt Frage als bereits gestellt
Case $loesung_button
$i = $i + 1
ConsoleWrite($i)
If $i = 10 Then
MsgBox(0, "", "Du hast bereits 10mal die Lösung gebraucht! Bitte nochmal probieren!")
$i = 0
Exit
EndIf
GUICtrlSetData($Liste, "Die Lösung ist: " & $mA[$index][1])
Case $go_button
$Read = GUICtrlRead($Antwort)
If $Read <> $mA[$index][1] Then
GUICtrlSetData($Liste, "Falsche Antwort!" & @CRLF & "Lösung anzeigen?")
ElseIf $Read = $mA[$index][1] Then
GUICtrlSetData($Liste, "Das Maß beträgt " & $Read & "!" & @CRLF & "Richtige Antwort!")
EndIf
EndSwitch
WEnd -
Ich zitiere mich mal selbst ...
Zitat
[Heute, 03:29] i2c: http://www.autoitscript.com/forum/topic/21…to-the-taskbar/ - Garys Post anschauen. AnyGUI dürfte eigentlich alles nötige mitbringen. -
Ziemlich ruhig hier ...
[Blockierte Grafik: http://h5.abload.de/img/06.11458ml.png][Blockierte Grafik: http://h3.abload.de/img/bildschirmfoto-7vaf4r.png]
[Blockierte Grafik: http://h5.abload.de/img/bildschirmfoto-64p8wu.png]
-
Dein Skript wäre sicher hilfreich. DU sagst zwar, du versteckst die Icons aber daran mag ich irgendwie nicht glauben ...
[autoit]DllCall("user32.dll", "hwnd", "GetDesktopWindow")
[/autoit] -
OIh, du machst es ja bereits so. Hatte mir dein Skript nicht angesehen.
Den Inhalt des Inputs bekommst du mit GUICtrlRead($input). Zeile 47 und 51. Was du da verwendest ist die ID ddes COntrols
-
Nimm 3 INputs, 2 davon disabled oder pack einfach ein Label vor und hinter das Input.
-
Spoiler anzeigen
[autoit]#region - Timestamp
[/autoit] [autoit][/autoit] [autoit]
;2011-11-05 13:03:11
#endregion - Timestamp$sProcess = "opera.exe"
[/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("", 100, 100)
GUICtrlCreateIcon(_ProcessGetIcon($sProcess), 0, 4, 4, 32, 32)
GUISetState()Do
[/autoit] [autoit][/autoit] [autoit]
Until GUIGetMsg() = -3;Autor unbekannt
[/autoit] [autoit][/autoit] [autoit]
Func _ProcessGetIcon($vProcess)
Local $iPID = ProcessExists($vProcess)
If Not $iPID Then Return SetError(1, 0, -1)Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
[/autoit] [autoit][/autoit] [autoit]
If Not IsArray($aProc) Or Not $aProc[0] Then Return SetError(2, 0, -1)Local $vStruct = DllStructCreate('int[1024]')
[/autoit] [autoit][/autoit] [autoit]Local $hPsapi_Dll = DllOpen('Psapi.dll')
[/autoit] [autoit][/autoit] [autoit]
If $hPsapi_Dll = -1 Then $hPsapi_Dll = DllOpen(@SystemDir & '\Psapi.dll')
If $hPsapi_Dll = -1 Then $hPsapi_Dll = DllOpen(@WindowsDir & '\Psapi.dll')
If $hPsapi_Dll = -1 Then Return SetError(3, 0, '')DllCall($hPsapi_Dll, 'int', 'EnumProcessModules', _
[/autoit] [autoit][/autoit] [autoit]
'hwnd', $aProc[0], _
'ptr', DllStructGetPtr($vStruct), _
'int', DllStructGetSize($vStruct), _
'int_ptr', 0)
Local $aRet = DllCall($hPsapi_Dll, 'int', 'GetModuleFileNameEx', _
'hwnd', $aProc[0], _
'int', DllStructGetData($vStruct, 1), _
'str', '', _
'int', 2048)DllClose($hPsapi_Dll)
[/autoit] [autoit][/autoit] [autoit]If Not IsArray($aRet) Or StringLen($aRet[3]) = 0 Then Return SetError(4, 0, '')
[/autoit]
Return $aRet[3]
EndFunc ;==>_ProcessGetIcon -
Erst XP, dann 7 und zum Schluss eine Linux Distribution deiner Wahl installieren.
Während der Linuxinstallation unbedingt ein eigenständige /home Partition anlegen. Bei Anfängern geht ja doch immer mal wieder was kaputt ;).
Ausserdem würde ich dir empfehlen, den Linux Bootloader auf die root Partition deiner Linux Installation zu schreiben. Diese Option wird dir in den meisten Distributionen kurz vor Start der Installation angeboten. Den Starteintrag für dein Linux trägst du dann anch der Installation entweder händisch oder mit EasyBCD in den Windows Bootloader ein. Das hat den Vorteil, das du dich als Linux Einsteiger nach einer WIndows Neuinstallation oder Reparatur nicht mit der GRUB Konfiguration rumärgern musst.
-
Jap http klappt nicht .
Wieso sollte http "nicht klappen"? Gestern hast du uns in der Shoutbox diesen Sourcecode doch genau auf die selbe Art und Weise über deinen Funpic Space gezeigt.
Lad die update.txt in einen öffentlichen Ordner auf deinem FTP hoch, damit du sie per http://irgendwas.auf.funpic.de/update.txt im Browser aufrufen kannst. Gann klappt's auch mit dem InetGet/InetRead.
-
Endlich Ruhe ....
-
[autoit]
#region - Timestamp
[/autoit]
;2011-10-12 21:57:18
#endregion - Timestamp
#include<array.au3>
#include <String.au3>
Local $sData = BinaryToString(InetRead("http://www.dlubal.de/Update-Bericht.aspx?name=RFEM 4.xx", 1), 4)
Local $nBytesRead = @extended
$a = StringRegExp($sData, '<div class="version">Version(.*?)</div>', 1)
_ArrayDisplay($a) -
[autoit]
#region - Timestamp
[/autoit][autoit][/autoit][autoit]
;2011-10-12 21:03:37
#endregion - Timestamp#include <String.au3>
[/autoit]
Local $sData = BinaryToString(InetRead("http://www.dlubal.de/Update-Bericht.aspx?name=RFEM 4.xx", 1), 4)
Local $nBytesRead = @extended
MsgBox(4096, "", "Bytes read: " & $nBytesRead & @CRLF & @CRLF & $sData)
$a = StringInStr($sData, "Version")
MsgBox(0, "", $a)
