hm geht auch net
Beiträge von MysticSun
-
-
Ein erneutes Problem hat sich soeben ergeben -.-
Ich habe die Funktion von GTA Spider genutzt..
jedoch verschieben sich die Controls im GUI
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 238, 51, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 136, 8, 97, 17)
$Button1 = GUICtrlCreateButton("Button1", 136, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
if IniRead(@ScriptDir & "\acc.config","Account","Check","NotFound") = "1" Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
Elseif IniRead(@ScriptDir & "\acc.config","Account","Check","NotFound") = "0" Then
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
EndIfWhile 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_WinSetSize($Form1,238,400,10,7);fast openEndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
WEnd;By GtaSpider
[/autoit]
Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4)
If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
Local $aWinPos = WinGetPos($hWnd)
If $iWidth < $aWinPos[2] Then $iStepW *= -1
If $iHeigth < $aWinPos[3] Then $iStepH *= -1
Local $iDegToRad = 3.14159265358979/180
Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
If $iSinMulW < 0 Then $iSinMulW *= -1
If $iSinMulH < 0 Then $iSinMulH *= -1
If $iWidth <> $aWinPos[2] Then
For $i = $aWinPos[2] To $iWidth Step $iStepW
$iLastI = $i
$iSin = $i - $aWinPos[2]
$iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
Sleep($iSleep)
Next
If Mod($iWidth - $aWinPos[2],$iStep) Then
If $iStepW < 0 Then
$iStepW = -1
Else
$iStepW = 1
EndIf
For $i = $iLastI -1 To $iWidth Step $iStepW
WinMove($hWnd,"",Default,Default,$i,Default)
Next
EndIf
EndIf
If $iHeigth <> $aWinPos[3] Then
For $i = $aWinPos[3] To $iHeigth Step $iStepH
$iLastI = $i
$iSin = $i - $aWinPos[3]
$iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
Sleep($iSleep)
Next
If Mod($iHeigth - $aWinPos[3],$iStep) Then
If $iStepH < 0 Then
$iStepH = -1
Else
$iStepH = 1
EndIf
For $i = $iLastI -1 To $iHeigth Step $iStepH
WinMove($hWnd,"",Default,Default,Default,$i)
Next
EndIf
EndIf
EndFunc -
danke ..
lol so ein dummer fehler XD
-
Hallo
Ich habe ein Problem ,unzwarIch habe eine Checkbox und ein Button,wenn in der Ini steht "0" dann soll die Checkbox unchecked sein ,wenn "1" dann soll die checked sein
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 238, 51, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 136, 8, 97, 17)
$Button1 = GUICtrlCreateButton("Button1", 136, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###if IniRead(@ScriptDir & "\acc.config","Account","Check","1") Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
Elseif IniRead(@ScriptDir & "\acc.config","Account","Check","") Then
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
EndIfWhile 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEnd -
sry dann hab ich es halt verwechselt xD
-
Hallo
Ich hab jetzt ein Problem mit meinen Treeview..
Ich möchte den Text eines selctierten Feld in der Zwischenablage haben...
Kleines Bild BSP:
ich möchte nur ,dass der colum "link" bei nen click in die zwischenablage ist
[Blockierte Grafik: http://www.mybralogin.pytalhost.com/bild.bmp]
danke
-
Hallo.
Da es mir in letzter Zeit satt ist immer iwelche Hoster zu suchen,dachte ich mir,dass man doch in Autoit recht simpel das iwie umstetzen kannGesagt...getan...
Funktionen:
-eigenen FTP-Server einstellen
-Fortschrittanzeige (danke an Cartan12 hilfe)
-Link befindet sich bei erfolgreichen Upload in der ZwischenablageEigentlich ist das Tool selbsterklärend.
Bild:
[Blockierte Grafik: http://www.mybralogin.pytalhost.com/Preview.png]
Viel Spass
Ich hoffe auf Kommentare,Verbesserungsvorschläge und was man noch einbauen könnte.
-
Hallo ich hab mal nen kleines Problem,unzwar ich will ne Datei hochladen...ja das klappt auch alles...jedoch will ich den Fortschritt in mein GUI anzeigen (Progressbar und % Label)
Hier ma nen Bsp
[autoit]$Open = _FTP_Open('FTP')
[/autoit]
$Conn = _FTP_Connect($Open, $server, $username, $pass)
for $i = 1 to 100
Sleep(50)
GUICtrlSetData($Progress1,$i)
GUICtrlSetData($lblProg,$i & "%")
Next
_FTP_ProgressUpload($Conn, GUICtrlRead($txtPfad), "/" & GUICtrlRead($txtFilename) & GUICtrlRead($cmbType))
$Ftpc = _FTP_Close($Open)Außerdem möchte ich nicht,das dies hier angezeigt wird : _FTP_ProgressUpload($Conn, GUICtrlRead($txtPfad), "/" & GUICtrlRead($txtFilename) & GUICtrlRead($cmbType))
sondern nur in den GUI !
Danke
-
also bei mir geht der upload
-
oha , ich hatte den auf "gelöst" gestelllt ,dann is mir jedoch noch die oben genannte Frage eingefallen und hatte dort weiter gefragt .... -.-
mfg :pinch:
-
Hallo,
Ich habe ein erneutes Problem mit dem Webbrowser Control...Hier erstma der Source was ich habe..
[autoit]_IENavigate($oIE,"http://mybralogin.pytalhost.com/System/User/Test/login.php")
[/autoit]
;Die daten holt man am besten Per Web Developer Toolbar, oder per FireBug ( FF-Addons )
$oForm = _IEFormGetCollection($oIE,0) ; Formular durch Index ansprechen ( Index: 0 )
$oName = _IEFormElementGetObjByName($oForm,"username") ; Feld für Username in Objektvariablen speichern
$oPass = _IEFormElementGetObjByName($oForm,"passwort") ; gleiches für das Passwort Feld.
_IEFormElementSetValue($oName,GUICtrlRead($Input1)) ; werte eintragen
_IEFormElementSetValue($oPass,GUICtrlRead($Input2)) ; " "
_IEFormSubmit($oForm) ; Form abschickenJa nun möchte ich auslesen ,ob man eingeloggt ist...
thx
-
-
eine frage noch..wie bekomme ich des hin,dass wenn erfolgreich eingeloggt wurde ne meldung kommt...
ich habs ma probiert aber klappt net...
[autoit]If _IEFormElementGetObjByName($oForm,"username") = "" Then
[/autoit]
MsgBox(0,"","nene")
Else
MsgBox(0,"","okay")
EndIftestdaten sind:
id:name
pw:pass -
[autoit]
#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
;---------------------------------------------------------------------------------------------------------------_IEErrorHandlerRegister ()
[/autoit][autoit][/autoit][autoit]
$oIE = _IECreateEmbedded ()
;---------------------------Inet Regist-------------------------------------------------------------------------$Form1 = GUICreate("Form1", 589, 326, 192, 124)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$GUIActiveX = GUICtrlCreateObj($oIE, 144, 8, 417, 297)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 8, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 56, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
_IENavigate($oIE,"http://mybralogin.pytalhost.com/System/User/Test/login.php")While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1EndSwitch
[/autoit]
WEnd -
Hallo,
Ich möchte einen Login coden..alles schön und gut (fertig)...Also der Inhalt von der Inputbox (von dem Gui) soll bei nem Click in den Webbrowser rein..!
Wie geht das..?
[Blockierte Grafik: http://www.imagebanana.com/img/4jqiegng/2.JPG]
[Blockierte Grafik: http://www.imagebanana.com/img/oqvtkgls/Unbenannt.JPG]Danke
-
Habe ein Login/Regist.-Script.
meld dich mal per icq: 441322838
-
ja okay
brauch ich dafür ne UDF ?
ERROR: AdlibRegister(): undefined function.
-
Hallo,
Ich möchte mal wissen wie man ein Label refreshen kann...Hier ma nen BSP:
[autoit]$Titel = "Test"
[/autoit][autoit][/autoit][autoit]
$Text = 0
$Get = ControlGetText($Titel,$Text,24)#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 448, 192, 124)
$Label1 = GUICtrlCreateLabel("Lvl: " & $Get, 50, 20, 50, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
WEndDas lbl soll sich jede sec. erneuern.
-
Happy B-day ,lass es krachen
-
Vielen Dank
mfg MysticSun