Hallo
crocojunk
Bei mir wird nach dem Speichern zwar eine .croco Datei erstellt,
aber der txt wird nicht in der Datei gespeichert.
habe winxp sp3
Hallo
crocojunk
Bei mir wird nach dem Speichern zwar eine .croco Datei erstellt,
aber der txt wird nicht in der Datei gespeichert.
habe winxp sp3
Hallo R60
Google mal nach "TaskAssign"
ShellExecute ( "C:\Dokumente und Einstellungen\X\Desktop\Fenster.htm" )
Danke SEuBo
Das Thema hätte mich vor 2-3 Wochen fast zum verzweifeln Gebracht.
(dabei ist es ja eigentlich ziemlich einfach)
Hallo SEuBo
Ich hoffe du bist nicht mehr so "kurz angebunden"
Und wenn das der Fall sein sollte,könntest du dann,zu dem Thema ein Beispiel machen ?
ich habe es gerade auch über web.de getestet,
und da geht es bei mir auch
das hat vielleicht etwas mit den smtp server zu tun.
gmx: smtp - mail.gmx.net
web.de: smtp - smtp.web.de
Hallo TheShadowAE
Dein emailmanager sieht richtig gut aus finde ich!
aber leider Funktioniert es bei mir nicht.
ich habe Autoit 3.3.4.0 und getestet mit gmx, googlemail, freenet
beim abrufen kommt, Server nicht gefunden.
und beim Senden kommt zwar die Meldung das die Mail versendet wurde,
aber es kommt keine an
Hallo Sprenger120
Also bei mir laufen beide Scripte (ehrlich gesagt finde ich auch keinen unterschied zwischen beiden)
ps.:ich habe allerdings noch die FFMPEG.exe zum Script getan,
wie schon gesagt gehen bei mir beide Scripte !
sind auch beide im rar Archiv.
ps.: ich nehme mal an das es bei dir an einem fehlenden Codec liegt.
geht denn mein avi bei dir?
ich hab dir mal die avi,und alles was ich verwendet habe hoch geladen.
ich habe win xp sp3
und die avi Dateien sind in recht guter Qualität.(10 sec 5 mb)
mit dem vlc und dem kmp Player laufen sie.
Format : AVI
Format/Info : Audio Video Interleave
File size : 10.2 MiB
Duration : 17s 800ms
Overal bit rate : 4802 Kbps
Video
Format : RGB
Codec ID : RGB
Codec ID/Info : Uncompressed RGB32
Duration : 17s 800ms
Bit rate : 4800 Kbps
Width : 200 pixels
Height : 200 pixels
Display aspect ratio : 1.000
Frame rate : 5.000 fps
Resolution : 24 bits
Bits/(Pixel*Frame) : 24.000
Stream size : 10.2 MiB
Hallo Sprenger120
Also bei mir laufen beide Scripte (ehrlich gesagt finde ich auch keinen unterschied zwischen beiden)
ps.:ich habe allerdings noch die FFMPEG.exe zum Script getan,
Hi
Suche mal nach Reconnect !
Es gibt hier im Forum ein Script,das Funktioniert.
Ich hatte es auch mal Genutzt.
Danke AutoBert
ich kann die GUI jetzt bewegen!
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 396, 281, 192, 124, $WS_POPUP, $WS_EX_CONTROLPARENT)
GUICtrlCreateBackgroundImage("Form1", @TempDir & "\background_pic.jpg")
Func GUICTrlCreateBackGroundImage($fenster_titel, $pfad)
$size = WinGetPos($fenster_titel,"")
GUICtrlCreatePic($pfad, 0, 0, $size[2],$size[3])
GUICtrlSetSTate(-1,$GUI_DISABLE)
EndFunc ;==>GUICTrlCreateBackGroundImage
;GUICtrlCreatePic(@TempDir & "\background_pic.jpg", 0, 0, 396, 281)
$Button1 = GUICtrlCreateButton("Play", 10, 250, 45, 20, $WS_GROUP)
GUICtrlSetTip ($Button1,"BLUB ")
$Button2 = GUICtrlCreateButton("Ruhe", 10, 200, 45, 20, $WS_GROUP)
GUICtrlSetTip ($Button2,"BLUB ")
$Button3 = GUICtrlCreateButton("Ausw.", 10, 152, 45, 20, $WS_GROUP)
GUICtrlSetTip ($Button3,"BLUB")
$Button4 = GUICtrlCreateButton("Exit", 330, 250, 45, 20, $WS_GROUP)
;GUICtrlCreatePic(@TempDir & "\background_pic.jpg", 0, 0, 396, 281)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]FileInstall ("background_pic.jpg", @TempDir & "\background_pic.jpg")
FileInstall ("P J.MP3", @TempDir & "\P J.MP3")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$Sound1 = SoundPlay(@TempDir & "\P J.MP3",0)
Case $Button2
SoundPlay("")
Case $Button3
$auswahl = fileopendialog("Such dir was","C:\Users\" & @username & "\Music","Musik(*.mp3)",1+4)
SoundPlay ( $auswahl,0)
Case $Button4
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
nur das jetzt die Buttons nicht mehr funktionieren,aber das bekomme ich bestimmt hin.
also Danke nochmal
Edit: jetzt geht es
Hallo
ich habe dazu eine frage.
wie ist es möglich den Button,das Bild zu bewegen?
hallo sc4ry
habe dein Clipboard mal getestet und finde es richtig gut
ps:
bei mir stürzt es übrigens nicht ab,habe windows xp sp3
Hallo Andy
ich Danke dir für deine Hilfe,so wie das Script jetzt ist wollte ich es haben.
Und zu deinem anderen Programm,das ist ja richtig Genial!
Hätte nicht gedacht das dieses mit Autoit möglich ist.
Danke noch einmal
Hallo
ich habe die gui von Andy etwas ausgebaut,jetzt kann man seine Spielzahlen eintragen und in eine ini Speichern.
Bild
[Blockierte Grafik: http://s11.directupload.net/file/d/1993/wek5xxro_jpg.htm] http://s11.directupload.net/file/d/1993/wek5xxro_jpg.htm
aber ich komme wieder nicht weiter,und zwar sollen die Zahlen verglichen werden wenn man auf den Button Pruefen klickt.
ich hoffe mir kann jemand helfen
code
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <String.au3>
$body = _INetGetSource("http://www.lotto.de/gewinnzahlen_und_quoten.html")
$filewr = FileOpen(@ScriptDir & "\lotto.txt", 2)
[/autoit] [autoit][/autoit] [autoit]$start = '<td height="32" class="zq17"><strong>'
$end = '</strong></td>'
$stringb = _StringBetween($body, $start, $end)
;msgbox(0,"Gewinnzahlen",$stringb[0])
If IsArray($stringb) Then
$stringb = $stringb[0]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $stringb = ' & $stringb & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
EndIf
FileWriteLine($filewr, $stringb)
[/autoit] [autoit][/autoit] [autoit]$Zahlen = StringSplit($stringb, ",", 3)
;_ArrayDisplay($Zahlen)
Dim $radio[50]
$gui = GUICreate('Lottozahlen', 310, 530, 193, 125)
$label = GUICtrlCreateLabel(" Die aktuellen Lottozahlen sind:", 75, 1, 200, 13)
$label1 = GUICtrlCreateInput("" & $stringb & "", 50, 16, 200, 20)
$label3 = GUICtrlCreateLabel("Bitte markieren Sie Ihre getippten Zahlen im unteren Feld:", 10, 37, 300, 13)
$label2 = GUICtrlCreateInput("Sie haben 0 Richtige!", 50, 340, 200, 20)
;$label4 = GUICtrlCreateLabel("Spiel1 = " & @CRLF & "Spiel2 = " & @CRLF & "Spiel3 = " & @CR=LF & "Spiel 4 = " & @CRLF & "Spiel5 = " & @CRLF & "Spiel6 = " & @CRLF & "Losnummer = ", 10, 370, 300, 120)
$Input = GUICtrlCreateInput("", 10, 370, 110, 20)
$Input1 = GUICtrlCreateInput("", 10, 395, 110, 20)
$Input2 = GUICtrlCreateInput("", 10, 420, 110, 20)
$Input3 = GUICtrlCreateInput("", 10, 445, 110, 20)
$Input4 = GUICtrlCreateInput("", 10, 470, 110, 20)
$Input5 = GUICtrlCreateInput("", 10, 495, 110, 20)
GUICtrlCreateLabel("1", 2, 372, 8, 13)
GUICtrlCreateLabel("2", 2, 397, 8, 13)
GUICtrlCreateLabel("3", 2, 422, 8, 13)
GUICtrlCreateLabel("4", 2, 447, 8, 13)
GUICtrlCreateLabel("5", 2, 472, 8, 13)
GUICtrlCreateLabel("6", 2, 497, 8, 13)
$Writebutton = GUICtrlCreateButton("Speichern", 130, 370, 55, 20, $WS_GROUP)
$Readbutton = GUICtrlCreateButton("Abrufen", 190, 370, 55, 20, $WS_GROUP)
$Pruefen = GUICtrlCreateButton("Pruefen", 250, 370, 55, 20, $WS_GROUP)
$Writebutton1 = GUICtrlCreateButton("Speichern", 130, 395, 55, 20, $WS_GROUP)
$Readbutton1 = GUICtrlCreateButton("Abrufen", 190, 395, 55, 20, $WS_GROUP)
$Pruefen1 = GUICtrlCreateButton("Pruefen", 250, 395, 55, 20, $WS_GROUP)
$Writebutton2 = GUICtrlCreateButton("Speichern", 130, 420, 55, 20, $WS_GROUP)
$Readbutton2 = GUICtrlCreateButton("Abrufen", 190, 420, 55, 20, $WS_GROUP)
$Pruefen2 = GUICtrlCreateButton("Pruefen", 250, 420, 55, 20, $WS_GROUP)
$Writebutton3 = GUICtrlCreateButton("Speichern", 130, 445, 55, 20, $WS_GROUP)
$Readbutton3 = GUICtrlCreateButton("Abrufen", 190, 445, 55, 20, $WS_GROUP)
$Pruefen3 = GUICtrlCreateButton("Pruefen", 250, 445, 55, 20, $WS_GROUP)
$Writebutton4 = GUICtrlCreateButton("Speichern", 130, 470, 55, 20, $WS_GROUP)
$Readbutton4 = GUICtrlCreateButton("Abrufen", 190, 470, 55, 20, $WS_GROUP)
$Pruefen4 = GUICtrlCreateButton("Pruefen", 250, 470, 55, 20, $WS_GROUP)
$Writebutton5 = GUICtrlCreateButton("Speichern", 130, 495, 55, 20, $WS_GROUP)
$Readbutton5 = GUICtrlCreateButton("Abrufen", 190, 495, 55, 20, $WS_GROUP)
$Pruefen5 = GUICtrlCreateButton("Pruefen", 250, 495, 55, 20, $WS_GROUP)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]Func _Write($Datei, $section, $key, $value)
IniWrite($Datei, $section, $key, $value)
EndFunc
Func _Read($Datei, $section, $key, $deflaut)
$wert = IniRead($Datei, $section, $key, $deflaut)
Return $wert
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]For $x = 0 To 6
For $y = 1 To 7
$radio[$x * 7 + $y] = GUICtrlCreateCheckbox($x * 7 + $y, ($y - 1) * 40 + 20, $x * 40 + 60, 30, 30, $BS_pushlike)
Next
Next
GUISetState()
$anzahlrichtige = 0
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $radio[1] To $radio[49] ; <-----------
For $richtig In $Zahlen
If $msg - $radio[1] + 1 = $richtig Then
$anzahlrichtige += 1
GUICtrlSetData($label2, "Sie haben " & $anzahlrichtige & " Richtige!")
Sleep(100)
EndIf
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $Writebutton
$write = GUICtrlRead($Input)
_Write("Lotto.ini","1","",$write) ;schreibt in die .ini
Case $Readbutton
$Read = _read("Lotto.ini", "1", "", "")
GUICtrlSetData($Input, $Read)
Case $Writebutton1
$write = GUICtrlRead($Input1)
_Write("Lotto.ini","2","",$write)
Case $Readbutton1
$Read = _read("Lotto.ini", "2", "", "")
GUICtrlSetData($Input1, $Read)
Case $Writebutton2
$write = GUICtrlRead($Input2)
_Write("Lotto.ini","3","",$write)
Case $Readbutton2
$Read = _read("Lotto.ini", "3", "", "")
GUICtrlSetData($Input2, $Read)
Case $Writebutton3
$write = GUICtrlRead($Input3)
_Write("Lotto.ini","4","",$write)
Case $Readbutton3
$Read = _read("Lotto.ini", "4", "", "")
GUICtrlSetData($Input3, $Read)
Case $Writebutton4
$write = GUICtrlRead($Input4)
_Write("Lotto.ini","5","",$write)
Case $Readbutton4
$Read = _read("Lotto.ini", "5", "", "")
GUICtrlSetData($Input4, $Read)
Case $Writebutton5
$write = GUICtrlRead($Input5)
_Write("Lotto.ini","6","",$write)
Case $Readbutton5
$Read = _read("Lotto.ini", "6", "", "")
GUICtrlSetData($Input5, $Read)
EndSwitch
WEnd
ini
Andy
ich danke auch dir!
@
Greek
du hast auch 6 richtige bei mir danke dir !