könntet du mir mein script kurz anpassen, weil ich bekomms grad net auf die reihe
Beiträge von Timiboy
-
-
könntest du mir sagen wie bitte?
-
ich mein es überschreibt mein wert $groese
-
Hallo,
ist es möglich, weil FileGetSize überschreibt mir immer meinen neuen Wert mit einem alten,
den neuen irgendwie zu behalten?
[autoit]func _ende()
[/autoit]
$groese = FileGetSize($Zeichen &".txt")/1048576
If $groese > 5 Then $Zeichen = $Zeichen+1
if $Zeichen = 21 Then $Zeichen = 8
$groese = $groese + 5
MsgBox(1,"",$groese)
endif
EndFuncMfG Timiboy
-
ich danke dir es klappt so
-
das bringt mich nicht weiter
-
Hallo,
ich hab grad nen problem wenn ich oben auf Datein und dann Einstellungen klicke und es dann schließe kann ich es nicht mehr öffnen.
Was kann das sein?Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$IE = _IECreateEmbedded ()
Global $html$startseite = IniRead("Browser.ini","Seite","Startseite","N/A")
[/autoit] [autoit][/autoit] [autoit]
if $startseite = "N/A" then
$startseite = "google.de"
EndIfsleep(150)
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Webbrower", @DesktopWidth-100, @DesktopHeight-100)
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
$GUI_url = GUICtrlCreateInput("http://", 92, 8, 801, 21)
$Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_go = GUICtrlCreateButton("Go!", 900, 6, 65, 25, $WS_GROUP)
$GUI_home = GUICtrlCreateButton("HOME", 1072, 6, 89, 25, $WS_GROUP)
$browser = GUICtrlCreateObj($IE,0, 40, 1217, 673)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###_IENavigate($IE,$startseite)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($GUI_url,$startseite)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_Exit()
Case $Menu_beenden
_Exit()
case $GUI_go
_go()
case $GUI_home
_Home()
case $Menu_Einstellungen
$form2 = GUICreate("Einstellungen",250,250)
GUISetState(@SW_SHOW,$form2)
GUICtrlCreateLabel("Startseite",5,18)
$startseite = GUICtrlCreateInput($startseite,70,15,170)
$bestaetigen = GUICtrlCreateButton("Bestätigen",10,220,230)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
case $bestaetigen
$startseite_r = GUICtrlRead($startseite)
IniWrite("Browser.ini","Seite","Startseite",$startseite_r)
endswitch
wend
EndSwitch
WEnd#region ---------------- FUNC ----------------
[/autoit] [autoit][/autoit] [autoit]Func _go()
[/autoit] [autoit][/autoit] [autoit]
$html = GUICtrlRead($gui_url)
_IENavigate($IE,$html)
EndFunc
Func _Exit()
Exit
EndfuncFunc _Home()
[/autoit] [autoit][/autoit] [autoit]
_IENavigate($IE,$startseite)
GUICtrlSetData($GUI_url,$startseite)
EndFunc#endregion ---------------- FUNC ----------------
[/autoit]Danke schonmal
MfG
-
-
Hallo,
geht es das AutoIT mir alle Namen der Dateien ausließt die in einem Ordner sind und sie mir dann alle als txt speichert.
MfG
-
es fehlt noch wenn man auf das gefängnissfeld kommt das man ins gefängniss muss
EDIT: muss besser lesen, es steht ja dran
-
danke aber ich mein des mit de wurfeln is ja nicht so schlimm.
Könntet du mir vllt helfen?
Bitte -
Hi
ich hab jetzt das mir mal paar mal durchgelesen und versucht aber ich bekomm des net hin.
Könntet ihr mir vllt helfen. Währe klasse -
wie mach ich das am besten?
-
also ich hab dann noch die bilder dazugetan
-
Hallo,
ich habe versucht ein kleines Spiel zu erstellen so ähnlich wie Monopoly.
Jetzt habe ich ein kleines Problem undzwar:
Wenn ich z.B. auf Los stehe und dann eine 12 hab wie bekomme ich es hin das mein Spielstein um die Ecke nach oben läuft und nicht immer weiter gerade aus?Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>HotKeySet("{ESC}","_Exit")
[/autoit] [autoit][/autoit] [autoit]
Func _Exit()
Exit
EndFuncHotKeySet("{space}","wurfeln")
[/autoit] [autoit][/autoit] [autoit]$91=600
[/autoit] [autoit][/autoit] [autoit]
$92=630
$93=45
$94=45GUICreate("Meine Gui",700,700)
[/autoit] [autoit][/autoit] [autoit]
$pic1 = GUICtrlCreatePic("feld.jpg", 0, 0,700,700)
$pic2 = GUICtrlCreatePic("stein.jpg", 600, 630,45,45)GUISetState()
[/autoit] [autoit][/autoit] [autoit]
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEndfunc wurfeln ()
[/autoit]
$wurf = Random(1,12,1)
$laufen = $wurf * 54
MsgBox(1,"Gewürfelt","Du hast eine "&$wurf&" gewürfelt!")
GUICtrlSetPos ($pic2,$91-$laufen,$92,$93,$94)
$91=$91-$laufen
endfuncMfG
-
ist es möglich wie hier:
[Blockierte Grafik: http://img713.imageshack.us/img713/6098/testx0.png]
die taps zu machen
-
könntest du mir ne kleine starthilfe geben weiß net wo ich suchen sol
-
Hallo,
ich habe vor eine Datenbank mit einem Kumpel zu schreiben.
Wie kann ich das machen das es über ftp läuft und das man sich auch einloggen kann.währe sehr dankbar
-
es klappt soweit jetzt mein 3. problem (2.selbst gelöst)
ich möchte jetzt das es eine datein erstellt und rein schreibt z.B 4 gelöst 7ungelöstmein code bis jetzt
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#Include <File.au3>_FileCreate("C:\Gelöst.txt")
[/autoit] [autoit][/autoit] [autoit]
GUICreate("1 x 1 Übung",220,315)
$1 = GUICtrlCreateButton("1er Reihe",10,10,200)
$2 = GUICtrlCreateButton("2er Reihe",10,40,200)
$3 = GUICtrlCreateButton("3er Reihe",10,70,200)
$4 = GUICtrlCreateButton("4er Reihe",10,100,200)
$5 = GUICtrlCreateButton("5er Reihe",10,130,200)
$6 = GUICtrlCreateButton("6er Reihe",10,160,200)
$7 = GUICtrlCreateButton("7er Reihe",10,190,200)
$8 = GUICtrlCreateButton("8er Reihe",10,220,200)
$9 = GUICtrlCreateButton("9er Reihe",10,250,200)
$alles = GUICtrlCreateButton("Ganzes kleines 1x1",10,280,200)
GUISetState() ; will display an empty dialog boxWhile 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $1
while 1
$a = 1
$b = Random(1,9,1)
$erg = InputBox('Rechenaufgabe', 'Wie viel ist ' & $a & ' mal ' & $b & ' ?', '')
If $a * $b = $erg Then
MsgBox(0, 'Aufgabe', 'Richtig!')$file = FileOpen("C:\Gelöst.txt", 1)
[/autoit] [autoit][/autoit] [autoit]
FileWrite($file, "richtig")
FileWrite($file, @CRLF)
Else
MsgBox(0, 'Aufgabe', 'Falsch!')$file = FileOpen("C:\Gelöst.txt", 1)
[/autoit] [autoit][/autoit] [autoit]
FileWrite($file, "falsch")
FileWrite($file, @CRLF)
EndIf
wend
[/autoit] [autoit][/autoit] [autoit][/autoit]
EndSelect
WEnd -