wieder sojemand der die kommentare nicht ließt
Zitatjagwc3lol2 search for drawingscript.au3 on google and you need a program called autoit to use the script =)
wieder sojemand der die kommentare nicht ließt
Zitatjagwc3lol2 search for drawingscript.au3 on google and you need a program called autoit to use the script =)
EM war anfangs n "schwiriger kandidat".
Nicht das ich jetzt einer gewesen bin der da glästert hätte aber EM hat schon viiiele fragen gestellt ohne hilfe zu lesen oder so, was etwas nervig war^^
hat sich aber sehr zum guten gewendet
@EM: immer schön wenn jemand sein wissen teilt, ich hab auch anfangs versucht überall zu helfen, und nur dadurch hab ich soviel gelernt
learning by doing oder wenn man so will learning by helfing
Hab jetzt die lösung von Schnitzel genommen nur wie benutz ich das den mit einem Button? Ich bin noch ein totaler noob
sie dir adlibregister in der hilfe an, da isses schön erklärt
und hilfethreads am besten immer mit deinen gesamten code öffnen
oder so?:
geht natürlich auch aber ich würde die while immer relativ leer lassen.
performanter und vor allem übersichtlicher im code.
außerdem kann man mit adlibregister richtig schön steuern wie oft es passieren soll, indem man nur eine zahl ändert. in der while wird das schwirig^^
Willkommen im forum
was du brauchst ist Adlibregister
so in etwa:
Adlibregister("update")
Func update()
GUICtrlSetData($List1, ""); liste leeren
$plist = WinList("[CLASS:CLIENT]")
For $i = 1 To $plist[0][0]
GUICtrlSetData($List1, $plist[$i][0])
Next
endfunc
wieso sollte das nicht gehn:
$key = "F1"
HotKeySet("!{" & $key & "}", "test")
while 1
sleep(10)
WEnd
func test()
msgbox(0,"","")
endfunc
benutz am besten die funktion
jup das is genau die die auch im thread steht
das passiert wenn du noch keine links in der ini hast.
ich sag ja das script ist nicht unbedingt gut
Willst du den besagten Button aus dem ersten Satz in der Luft erstellen?
wenn man viele probleme von einsteigern gelesen hat ließt man das ganze wohl etwas anders
es geht ihm wohl nicht um irgendwelche selbsterstellten buttons sondern einfach darum wie man linke mausklicks in rechte umwandelt
sry war nich bös gemeint oder so
so z.B.
das ganze script ist aber nicht unbedingt gut gebaut
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]Const $sElect = "Bitte eine URL auswählen"
Global $URL
If Not FileExists(@ScriptDir & "\URL.INI") Then
$sData = "Adminsoft HP" & @LF & ""
IniWriteSection(@ScriptDir & "\URL.INI", "URLs", $sData)
EndIf
$hGui = GUICreate("Link Manager", 300, 160, 302, 218)
$hcboProg = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
$hbtnAdd = GUICtrlCreateButton("&Hinzufügen", 213,
$hlblURL = GUICtrlCreateLabel("Ein Button zum löschen der Links folgt noch", 8, 35, 200, 50)
$list1 = IniReadSection(@ScriptDir & "\URL.INI", "URLs")
ConsoleWrite($list1 & @CRLF)
For $i = 1 To $list1[0][0]
GUICtrlSetData($hcboProg, $list1[$i][0])
Next
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
$hbtnDel = GUICtrlCreateButton("Löschen", 100, 85)
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hbtnAdd
$write1 = InputBox("URL", "Geben Sie hier ihre URL ein. Mit http://www.")
If $write1 <> "" Then
$write2 = InputBox("URL Name", "Gebem Sie hier einen Kurzbegriff ein, der im Auswahlfenster erscheinen soll")
If $write2 <> "" Then IniWrite(@ScriptDir & "\URL.INI", "URLs", $write2, $write1)
GUICtrlSetData($hcboProg, $write2, $write2)
EndIf
show_Selection()
Case $hcboProg
show_Selection()
Case $hbtnOpen
ShellExecute($URL)
Case $hbtnDel
IniDelete(@ScriptDir & "\URL.INI", "URLs", Guictrlread($hcboProg))
EndSwitch
WEnd
Func show_Selection()
If GUICtrlRead($hcboProg) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblURL, "")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
$Prog = GUICtrlRead($hcboProg)
ConsoleWrite("ausgewählt: " & $Prog & @CRLF)
$URL = IniRead(@ScriptDir & "\URL.INI", "URLs", $Prog, "")
GUICtrlSetData($hlblURL, $URL)
EndIf
EndFunc ;==>show_Selection
wer redet denn hier von gui's?
wird jedoch klappt es nicht immer einwandfrei
wir sind egtl nicht da um bugs in programmen zu suchen. natürlich helfen wir dir gerne bei problemen aber du kannst nicht erwarten dass man sich 800 zeilen code durchliest und vor allem durchdenkt.
dein code is nämlich nicht unbedingt übersichtlich...
beschreib doch besser was dir an dem script nicht passt.
Ich frage mich jetzt nur, ob das auch bei Touchscreens so geht?
da die wenigsten wohl einen touchscreen haben würde ich sagen: selbst ausprobieren
Anstatt so einen langen text wärs besser wenn du einfach deine Frage stellst
mit dem beispiel aus der hilfe kannst du nur 1 zu 1 connecten (soweit ich das in erinnerung hab)
du brauchst vom server mehrere tcp-verbindungen zu den einzelnen clients.
d.h. warten bis sich jemand verbindet. am besten die verbindung in einem array abspeichern und um 1 höher zum nächsten index zählen.
gibt einige solche scripte hier im forum. such mal nach multi chat oder sowas in die richtung
ZitatIch glaube nicht, das Eukalyptus nach Bugs fragt.
wieso schreibste dann "deinen gefundenen"
ne leute mal im ernst: Bugs sollten bei einem nicht fertigen projekt nicht das thema sein^^
hier solltest du dich zurechtfinden
[ offen ] TFT Auflösung ändern
boa heftig.
ich glaube das ist echt das beeindruckenste spiel das ich bisher in autoit gesehn hab.
klasse arbeit.
und der code sieht auch sehr sauber aus.
was du noch alles einbauen wolltest weiß ich natürlich nicht aber ich finde es klasse
Hast dus schonmal mit anderen controlcommandos probiert?
Controlclick und controlsend könnten evtl helfen.
Aber nicht alle controls lassen sich per autoit direkt ansteuern...
speichere die ausgelesenen werte in einem array.
dann kannst du sie ganz einfach sortieren ( _arraysort() )
geht bestimmt einfacher aber ich hab zu wenig zeit
habs einfach mit dem boolean gelöst:
$manuellerclick = False
While $exit
While $play = 1
if Not $manuellerclick then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
Endif
AdlibRegister("_Countdown", 1000)
While $time > 0 And $play = 1
ToolTip($time)
Sleep(10)
$manuellerclick = False
If _IsPressed("04", $dll) Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
$manuellerclick = True
ExitLoop
EndIf
WEnd
ToolTip($time)
AdlibUnRegister("_Countdown")
$time = 15
WEnd
Sleep(250)
WEnd