Beiträge von MysticSun

MysticSun

hm geht auch net

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>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$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)
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_WinSetSize($Form1,238,400,10,7);fast open

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;By GtaSpider
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

[/autoit]

MysticSun

danke ..

lol so ein dummer fehler XD

MysticSun

Hallo
Ich habe ein Problem ,unzwar

Ich 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>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$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 ###

[/autoit] [autoit][/autoit] [autoit]

if IniRead(@ScriptDir & "\acc.config","Account","Check","1") Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
Elseif IniRead(@ScriptDir & "\acc.config","Account","Check","") Then
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

MysticSun

sry dann hab ich es halt verwechselt xD

MysticSun

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

MysticSun

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 kann

Gesagt...getan...

Funktionen:

-eigenen FTP-Server einstellen
-Fortschrittanzeige (danke an Cartan12 hilfe)
-Link befindet sich bei erfolgreichen Upload in der Zwischenablage

Eigentlich 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.

MysticSun

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')
$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)

[/autoit]

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

MysticSun

also bei mir geht der upload

MysticSun

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:

MysticSun

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")
;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 abschicken

[/autoit]

Ja nun möchte ich auslesen ,ob man eingeloggt ist...

thx

MysticSun

keiner

MysticSun

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
MsgBox(0,"","nene")
Else
MsgBox(0,"","okay")
EndIf

[/autoit]

testdaten sind:

id:name
pw:pass

MysticSun

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
;---------------------------------------------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
;---------------------------Inet Regist-------------------------------------------------------------------------

[/autoit][autoit][/autoit][autoit]

$Form1 = GUICreate("Form1", 589, 326, 192, 124)
$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")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit]

MysticSun

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

MysticSun

Habe ein Login/Regist.-Script.

meld dich mal per icq: 441322838

MysticSun

ja okay

brauch ich dafür ne UDF ?

ERROR: AdlibRegister(): undefined function.

MysticSun

Hallo,
Ich möchte mal wissen wie man ein Label refreshen kann...

Hier ma nen BSP:

[autoit]

$Titel = "Test"
$Text = 0
$Get = ControlGetText($Titel,$Text,24)

[/autoit][autoit][/autoit][autoit]

#include <GUIConstantsEx.au3>
#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 ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

Das lbl soll sich jede sec. erneuern.

MysticSun

Happy B-day ,lass es krachen

MysticSun

Vielen Dank

mfg MysticSun

Beiträge von MysticSun

Expand-Problem

Expand-Problem

checkbox-ini Problem

checkbox-ini Problem

Treeview -Colum kopieren ?

Treeview -Colum kopieren ?

FTP-Uploader

Progress und Inet

FTP Server Upload

Webbrowser Problem (auslesen)?

Webbrowser Problem (auslesen)?

inputbox ihalt im webbrowser

inputbox ihalt im webbrowser

inputbox ihalt im webbrowser

inputbox ihalt im webbrowser

Registrierungscript

Label refresh ?

Label refresh ?

Oscar hat Geburtstag.

Update der Übersetzseite für die Hilfe auf 3.3.2.0