Du kannst dir die txt mit InetGet holen, auslesen und löschen, genau das, was PokerFace gesagt hat, wenn dir FTP_FileRead zu kompliziert ist.
Beiträge von PenGuin
-
-
Hallo,
bei mir funktioniert die Listview UDF von Autoit unter Win7 64bit nicht.
Ich wollte dieses einfache Hilfebeispiel testen:Spoiler anzeigen
[autoit]#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
[/autoit] [autoit][/autoit] [autoit]
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit]
Local $hImage, $hListView; Create GUI
[/autoit] [autoit][/autoit] [autoit]
GUICreate("ListView Add Item", 400, 300)
$hListView = GUICtrlCreateListView("", 2, 2, 394, 268)
_GUICtrlListView_SetUnicodeFormat($hListView, False)
GUISetState(); Load images
[/autoit] [autoit][/autoit] [autoit]
$hImage = _GUIImageList_Create()
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
_GUICtrlListView_SetImageList($hListView, $hImage, 1); Add columns
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
_GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
_GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100); Add items
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GUICtrlListView_AddItem($hListView, "Row 1: Col 1", 0)
_GUICtrlListView_AddItem($hListView, "Row 2: Col 1", 1)
_GUICtrlListView_AddItem($hListView, "Row 3: Col 1", 2); Loop until user exits
[/autoit]
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_MainJedoch funktioniert dies anscheinend nicht, da er keine Items hinzufügt (vgl. Anhang)
Haben andere Win7 Nutzer dasselbe Problem?Ich hoffe, dass ihr eine Lösung habt.
MfG
-
Ja _FTP_FileRead ist das, was du brauchst.
-
Schneller? oO
Send hat eine normale Dauer... Da ist nix mit schneller -
[autoit]
stdoutRead
[/autoit] -
So?
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TabConstants.au3>Opt("GUIOnEventMode", 1) ;Aktiviert den GUIOnEventMode
[/autoit] [autoit][/autoit] [autoit]#region ### START Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
$MainGUI = GUICreate("Shutdown", 397, 137, 256, 242)
GUISetOnEvent(-3, "_Exit") ;Wenn das "x" des Fensters gedrückt wurde, dann soll er die Funktion "_Exit" ausführen
$Input = GUICtrlCreateInput("", 64, 16, 209, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$Input1 = GUICtrlCreateInput("", 64, 56, 209, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$Label1 = GUICtrlCreateLabel("Stunden", 8, 16, 44, 17, -1, $WS_EX_STATICEDGE)
$Label2 = GUICtrlCreateLabel("Minuten", 8, 56, 42, 17, -1, $WS_EX_STATICEDGE)
$Button1 = GUICtrlCreateButton("Start", 64, 88, 97, 33, BitOR($BS_DEFPUSHBUTTON, $WS_GROUP))
GUICtrlSetOnEvent(-1, "_Shutdown") ;Wenn der Button "Start" gedrückt wurde, dann soll er die Funktion "_Shutdown" ausführen
$Button3 = GUICtrlCreateButton("About", 288, 88, 97, 33, BitOR($BS_DEFPUSHBUTTON, $WS_GROUP))
GUICtrlSetOnEvent(-1, "_About") ;Wenn der Button "About" gedrückt wurde, dann soll er die Funktion "_About" ausführen
$Button2 = GUICtrlCreateButton("End", 176, 88, 97, 33, BitOR($BS_DEFPUSHBUTTON, $WS_GROUP))
GUICtrlSetOnEvent(-1, "_Exit") ;Wenn der Button "End" gedrückt wurde, dann soll er die Funktion "_Exit" ausführen
GUISetState(@SW_SHOW) ;Das Fenster wird sichtbar aufgerufen
#endregion ### END Koda GUI section ####region ### START Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$AboutGUI = GUICreate("About", 276, 156, 415, 289)
GUISetOnEvent(-3, "_Change") ;Wenn das "x" des Fensters gedrückt wurde, dann soll er die Funktion "_Change" ausführen
$Tab1 = GUICtrlCreateTab(0, 0, 273, 153, $TCS_SCROLLOPPOSITE)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Macher")
$Label1 = GUICtrlCreateLabel("Vorname: Jannis", 8, 32, 109, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Nachname: Gatzenberger", 8, 56, 148, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TabSheet2 = GUICtrlCreateTabItem("Kontakt")
$Label3 = GUICtrlCreateLabel("Email: JannisGatzenberger@gmx.de", 10, 31, 232, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Homepage: Jannis-hat-keine-homepage.de", 8, 56, 245, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlCreateTabItem("")
GUISetState(@SW_HIDE) ;Das Fenster wird unsichtbar augerufen
#endregion ### END Koda GUI section ###While 1 ;Endlosschleife
[/autoit] [autoit][/autoit] [autoit]
Sleep(50)
WEndFunc _Exit()
[/autoit] [autoit][/autoit] [autoit]
Exit ; Beendet das Script
EndFunc ;==>_ExitFunc _Change()
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_HIDE, $AboutGUI) ;Versteckt das Fenster "AboutGUI"
Sleep(100)
GUISetState(@SW_SHOW, $MainGUI) ;Zeigt das Fenster "MainGUI"
EndFunc ;==>_ChangeFunc _About()
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $AboutGUI) ;Zeigt das Fenster "AboutGUI"
Sleep(100)
GUISetState(@SW_HIDE, $MainGUI) ;Versteckt das Fenster "MainGUI"
EndFunc ;==>_AboutFunc _Shutdown()
[/autoit]
$Stunden = GUICtrlRead($Input)
$Minuten = GUICtrlRead($Input1)
Sleep($Stunden * 3600000)
Sleep($Minuten * 60000)
Shutdown(5)
EndFunc ;==>_ShutdownUnd bitte, lies dir den OnEventMode in der Hilfe durch, der hilft
Aber auch die Kommentare! -
Nehmt "funkey" noch in die Liste auf, wenn ich auf sein Avatar schaue, bekomm ich immer einen Gehirnschaden oO
-
Afaik ist es mit AutoIt möglich, über eine interne DLL, ich weiß aber nicht, ob ich einen Beispielcode posten darf...
-
Pauschal fällt mir nur
[autoit]_FilePrint
[/autoit]
ein : / -
Und in kompliziert : /
Spoiler anzeigen
[autoit]#include <GuiStatusBar.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 269, 146, 192, 124)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
;~ DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$Bar = _Progress_Create($Form1, 0, 120, 269, 25)
;~ DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
$ControlIDBar = _WinAPI_GetDlgCtrlID($Bar)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###Do
[/autoit] [autoit][/autoit] [autoit]
$i = 0
Do
_Progress_SetStep($Bar, 10)
_Progress_StepIt($Bar)
Sleep(500)
$i += 10
Until $i = 100
Sleep(50)
Exit
Until GUIGetMsg() = -3Func _Progress_Create($hWnd, $iX, $iY, $iWidth = -1, $iHeight = -1, $iStyle = 0, $iExStyle = 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$iStyle = BitOR($iStyle, $WS_CHILD, $WS_VISIBLE)
Return _WinAPI_CreateWindowEx($iExStyle, "msctls_progress32", "", $iStyle, $iX, $iY, $iWidth, $iHeight, $hWnd)
EndFunc ;==>_Progress_CreateFunc _Progress_SetBarColor($hWnd, $iColor)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Return _SendMessage($hWnd, $PBM_SETBARCOLOR, 0, $iColor)
EndFunc ;==>_Progress_SetBarColorFunc _Progress_SetPos($hWnd, $iPos)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Return _SendMessage($hWnd, $PBM_SETPOS, $iPos, 0)
EndFunc ;==>_Progress_SetPosFunc _Progress_SetBkColor($hWnd, $iColor)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Return _SendMessage($hWnd, $PBM_SETBKCOLOR, 0, $iColor)
EndFunc ;==>_Progress_SetBkColorFunc _Progress_SetStep($hWnd, $iStep = 10)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Return _SendMessage($hWnd, $PBM_SETSTEP, $iStep, 0)
EndFunc ;==>_Progress_SetStepFunc _Progress_StepIt($hWnd)
[/autoit]
Return _SendMessage($hWnd, $PBM_STEPIT, 0, 0)
EndFunc ;==>_Progress_StepItDas mit den Progress hatte ich auch mal im englischen Forum zu Listviews gefunden, falls das so nicht gehen sollte, mach die Kommentar bei den beiden DLLCalls oben weg...
Aber ich rate dir, nimm die Lösung vonclezZ(seine Lösung entsprach nicht dem Problem :D) oder AutoBert
-
Ich würde statt
[autoit]$pi = 3.141
[/autoit]einfach
[autoit]$pi = 4 * ATan(1)
[/autoit]nehmen...
-
Kannst du trotzdessen mal die Kugel.bmp beilegen?
-
Kein Problem, falls Fragen offen sind, einfach Thread machen oder halt per ICQ.
-
Schau dir mal StringReplace an (einfach auf den Befehl klicken):
[autoit]StringReplace
[/autoit]MfG
-
So?
Spoiler anzeigen
[autoit]#include <ComboConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Strategiks WaR", 440, 403, -1, -1)
$Label1 = GUICtrlCreateLabel("Strategis War", 112, 0, 161, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Holzfäller", 4, 88, 80, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Gebäude", 64, 48, 90, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Lehmhütte", 4, 120, 90, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Eisenbergwerk", 4, 152, 122, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Einheiten", 304, 48, 93, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Einheiten = GUICtrlCreateCombo("Einheiten:", 300, 88, 125, 25)
GUICtrlSetData(-1, "Legionäre|Bogenschützen|Axtwerfer|Rammböcke|Katapulte")
$HolzStufeAusbau = GUICtrlCreateLabel("Ausbau Stufe 1", 144, 88, 107, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Stadt", 72, 192, 50, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("Anzahl: ", 300, 120, 98, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$AnzahlLegionar = 100
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Einheiten
[/autoit] [autoit][/autoit] [autoit]
Switch GUICtrlRead($Einheiten)
Case "Legionäre"
MsgBox (0, "", "")
Case "Bogenschützen"
MsgBox (0, "", "")
Case "Axtwerfer"
MsgBox (0, "", "")
Case "Rammböcke"
MsgBox (0, "", "")
Case "Katapulte"
MsgBox (0, "", "")
EndSwitchEndSwitch
[/autoit]
WEnd€: Zu langsam ._.
-
Cool
Mein Rekord liegt bei 1:50min
Schaut auf jedenfall gut aus, mal schauen, ob ich Bugs finde :> -
Wie umbauen, sind doch nur 2 Funktionen und in der einen muss nur die GUI angegeben werden, die unsichtbar werden soll^^
-
Nächste mal bitte in
[a utoit][/ autoit] (ohne Leerzeichen)
Bau einfach ein Sleep in die While 1...WEnd Schleife.
-
Gibts das auch mit Source, ich hab den irgendwie nicht ._.
-
Setz hinter dem oberen Next noch ein Next, dann gibt der keinen Fehler mehr, denn du hast 2 ForSchleifen geöffnet,
aber nur eine geschlossen.