Hi,
Die ist Standartmäßig schon im Include Verzeichnis drin.
--> siehe Anhang.
Hi,
Die ist Standartmäßig schon im Include Verzeichnis drin.
--> siehe Anhang.
Hi,
Zitat
GUICtrlCreateLabelCreates a static Label control for the GUI.
______________________________________________________________________________________________________________________________________________________The extended style $GUI_WS_EX_PARENTDRAG can be used to allow the dragging of the parent window for windows that don't have a titlebar (no $WS_CAPTION style in GUICreate).
Beispiel:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 633, 447, 372, 251)
$Label1 = GUICtrlCreateLabel("", 0, 0, 633, 447,"",$GUI_WS_EX_PARENTDRAG)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Dann benutzt die Firefox UDF von Stilgar und dann brauchst du überhaupt keine Mausklicks.
Der funktioniert solange, bis man den Starbutton drückt. Danach bist du in einer Endloschelife, und da kann er den beenden Button nicht mehr abfragen.
Da musst du irgendwas mit AdlibEnable basteln, ich hab jetzt aber keine Zeit mehr, probiers erst mal selber.
Hi,
meinst du so?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{F5}", "Start")
HotKeySet("{F6}", "Ende")
$Klickermania = GUICreate("Klickermania", 633, 448, 187, 156, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_MAXIMIZE, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS, $DS_MODALFRAME, $DS_SETFOREGROUND, $DS_CONTEXTHELP), 0)
GUISetIcon("C:\Dokumente und Einstellungen\MAtze\Desktop\Icon\Matze.ico")
GUISetCursor(2)
GUISetBkColor(0x000080)
$ende = GUICtrlCreateButton("Beenden", 280, 256, 201, 89, 0)
$start = GUICtrlCreateButton("Start", 48, 256, 201, 89, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
Start()
Case $ende
Ende()
EndSwitch
WEnd
Func Start()
While 1
MouseClick("left", "508", "510", 1, 0)
Sleep(990)
WEnd
EndFunc ;==>Start
Func Ende()
Exit
EndFunc ;==>Ende
weiß jem ob man mit autoit so ein loginbox machen kann und wenn man sich auf einer bestimmten i-net seite registriert und dann seine logindaten in der loginbox eingibt dann ein msgbox erscheint das alles richtig gemacht wurde ---> dann zun richtigen programm geleitet wird sry ich weiß is a bissel kompliziert
Also du willst dich praktisch mit einem Script auf einer Website registrieren? Um was wetten wir, die Seite heißt http://www.silkroadonline.net/?
Nee, solange kein Captcha den registrierungsvorgrang schützt, warum sollte es nicht gehn? ;).
In der Hilfe findet man uach schon einige Antworten. Schau dir mal die _IE funktionen an, oder wenn du den Firefox vorziehst die Funktionen von Stilgar an.
Hi,
benutz doch OrganizeIncludes von Xeno, das sucht dir die Inludes und setzt sie an den Anfag. Bei mir spuckt es folgende Includes aus:
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
Hi,
was macht das Script? Bzw. was soll es bewirken?
Damit der Bildschirm bei der Funktion nicht wieder angeht, wenn du die Maus bewegst musst du einfach noch ein BlockInput einbauen.
#include <SendMessage.au3>
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local Const $Off = 2, $On = -1
Opt("WinTitleMatchMode", 4)
$hwnd = WinGetHandle('classname=Progman')
BlockInput(1)
_ToggleMonitor($hWnd, $Off)
Sleep(3000)
_ToggleMonitor($hWnd, $On)
BlockInput(0)
EndFunc
Func _ToggleMonitor($hwnd, $OnOff)
Local Const $WM_SYSCOMMAND = 274
Local Const $SC_MONITORPOWER = 61808
_SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
If @error Then
MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)
Exit
EndIf
EndFunc
Mmh, denke, dass es so einfach nicht ist. Wenn keine CD/DVD drin ist, dann kommt ein Lesefehler, obwohl die Schublade ja durchaus zu sein kann.
Mir fallen jetzt 2 Möglickeiten ein.
- Du kannst die Schublade einfach immer schliessen lassen. Danach weist du welchen Zustand sie hat. Wenn sie offen war, dann wird sie geschlossen, und wenn sie zu ist bleibt sie zu.
. Die andere Möglichkeit wäre eien DLL. In deinem Fall winmm.dll. Ich habe schon ein VB script gesehen, dass dir den Zustand zurückgibt, einfach mal ein bisschen googlen. Dann musst du aber noch in AutoIt übersetzten, was jetzt auch nicht gerade einfach ist, aber dir wird bestimmt geholfen :). Nur ist die DLL so gut wie nicht Dokumentiert.
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $array[5]
$array[0]=4
$array[1]='CN=SophosAdministrator,OU=Users,OU=_Admins,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[2]='CN=Account Operators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[3]='CN=Distributed COM Users,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
$array[4]='CN=Administrators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc'
for $i = 1 to $array[0]
$array2 = StringSplit($array[$i], ",")
$array[$i] = $array2[1]
Next
_ArrayDisplay($array)
ich habe hier noch nen alten router rumstehen. was muss ich jetzt wie
anschließen, dass ich ein ordentliches LAN mit dem router und den
powerline-adaptern erstellen kann und natürlich weiter ins internet
komme?
Einfach so einen alten Router anschließen ist nicht.
Du hast Sphairon Turbolink IAD oder?
Du brauchst einen Router, der nicht gleichzeitig Modem ist. Ich hatte das selbe Problem letztens bei nem Freund. De wollte Wlan, und hat sich dann den Router gekauft: D-Link DI 524
Zu den anderen Fragen kann ich so keine Antwort geben, aber mit dem zweiten Router hintendran müsste es möglich sein, sein Netzwerk aufzubauen.
Fragen stellen kannst du hier: Hansenet-Forum
Da bekommt man auch Antwort.
Du hast aber einen Fehler drin. Du musst die Variable die Hochzählt bei jedem Button-Klick auf 0 setzen, ansonsten kann er den Progress nicht richtig setzen.
Hi,
Opt("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 ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button_berechnen
$punktnummer = 0
$versuche = GUICtrlRead($Input_versuchsanzahl)
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 = $punktnummer/$versuche
GUICtrlSetData($Fortschrittsbalken, $fortschritt_prozent*100)
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]Mist GTA war schneller :P.
Hi,
willst du das unbedingt mit API machen oder reicht dir schon
FileRecycle("source")
[/autoit]/Edit achso, sry, das hab ich überlesen.
HotKeySet("!{F4}", "abbrechen")
[/autoit][ offen ] Hilfe Videos (Letzter post auf dieser Seite)
Da ist übrigens noch ein böser Fehler drin
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 396, 223, 195, 126)
$Button1 = GUICtrlCreateButton("Get Clients", 3, 6, 91, 22, 0)
$List1 = GUICtrlCreateList("", 300, 3, 91, 214)
$Button2 = GUICtrlCreateButton("Get Name", 3, 30, 91, 22, 0)
$Button3 = GUICtrlCreateButton("Close", 0, 198, 91, 22, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If ProcessExists ("sro_client.exe")Then
$process = ProcessList ("sro_client.exe")
For $i = 1 to $process[0][0]
WinSetTitle("SRO_Client","","Silkroad_" & $i)
GuictrlsetData($List1,"Silkroad_"& $i)
Next
Else
MsgBox (16+48,"Error","Silkroad not running!")
EndIf
Case $Button2
$silkroad = StringTrimLeft(Guictrlread($List1), 9)
If $silkroad <> '' Then ProcessClose($process[$silkroad][1])
_GUICtrlListBox_DeleteString($List1,_GUICtrlListBox_GetCurSel($List1))
Case $Button3
Exit
EndSwitch
WEnd
So jetzt isses richtig
Stimmt, mist.
Hab ausversehen StringTrimRight und StringTrimleft verwechselt.
Danke BugFix
Hi,
also ich sehe keinen Fehler in deinem Programm, und bei mir Funktioniert es auch:
$buff1_cooldown = 1
[/autoit] [autoit][/autoit] [autoit]$cooldown1 = $buff1_cooldown * 1000
[/autoit] [autoit][/autoit] [autoit]$Timer1 = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While 1
if TimerDiff($Timer1) > $cooldown1 Then
MsgBox(0, "test", "test")
endif
WEnd
Der Fehler könnte noch im Auslesen des Inputs liegen. Wenn er da einen falschen Wert ausliest ist natürlich auch das Ergebnis falsch.
Du hast dir damit eine Endlosschleife der Msgboxen gebaut. Aber wenn das Absicht ist, was ist der Fehler?