Hallo!
Wow, sehr schön! Daran sieht man mal wider was man alles mit comobjeckten machen kann
Mfg Spider
Hallo!
Wow, sehr schön! Daran sieht man mal wider was man alles mit comobjeckten machen kann
Mfg Spider
Hallo!
Jo, wenn er mit GUI arbeitet, aber davon hat er ja nix gesagt?! nur das er ein fenster abfangen will..
Mfg Spider
Hallo!
Dann setzte das Sleep größer! z.B. Sleep(250)
Mfg Spider
Hallo!
Mit _IsPressed würde es so gehen:
#include <misc.au3>
[/autoit] [autoit][/autoit] [autoit]While 1
While _IsPressed("01")
Sleep(100)
$ti = TimerInit()
While 1
If TimerDiff($ti) > 100 Then ExitLoop
If _IsPressed("01") Then MsgBox(0, "", "doppelklick!")
WEnd
WEnd
WEnd
Mfg Spider
Hallo!
guibuilder? meinst du Koda? Falls du nich Koda meinst sondern den anderen builder, hol die koda, der ist besser Am besten, wie ich finde, gehts aber immer noch mit der Hand.. Aber das ist wohl Geschmackssache..
Koda: http://www.autoitscript.com/fileman/users/…formdesign.html
Mfg Spider
Hallo!
Öhm Thema ist noch offen^^
@Scary: Für illegale sachen gehe in ein Hacker board. Wegen so leuten wie z.B. du wird autoit in den Dreck gezogen und sowas dulden wir hier nicht!
Mfg Spider
Action GtaSpider: Topic Closed
Hallo!
Cool, ist mir neu^^ gut zu wissen
Mfg Spider
Hallo!
Nein, es ist vom einem normalen usb stick nicht möglich ein autostart durchzuführen! Es gibt aber sogenannte U3 Stick die plug'n'play unterstüzen, aber nur wenn voher auf dem PC eine software installiert ist. Auf der Hackerconvension in Sillicon Valley hat es letztes jahr einer geschafft windows XP auszutricksen, aber erwärblich ist das teil nicht..
Mfg Spider
Hallo!
Ach quatsch, du bist noch jung und gesund
Hier auch mal sowas änliches, nur ein bisschen ausgefeilter: http://www.autoitscript.com/forum/index.php?s=&showtopic=24154&view=findpost&p=168674
Edit: ups -.- das war ja das gleiche wate ich meinte das hier, aber th.meger, vlt ranschreiben das das Programm nicht von dir ist...: http://www.autoitscript.com/forum/index.php?showtopic=6015&hl=Func%20MAG&st=30
Mfg Spider
Hallo!
Jo, die XP Progressbar kann man nicht umfärben! "Checkbox or Progress controls cannot be painted if the "Windows XP style" is used."
DAmit ihr nicht immer den Style umändern müsst. sondern autoit das nur für sich macht, müsst ihr folgendes skript benutzen:
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 1)
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
$Chartreuse = 0x7FFF00
$Lime = 0x00FF00
$LimeGreen = 0x32CD32
$YellowGreen = 0x9ACD32
$Gold = 0xFFD700
$Goldenrod = 0xDAA520
$Orange = 0xFFA500
$DarkOrange = 0xFF8C00
$Coral = 0xFF7F50
$Salmon = 0xFA8072
$Tomato = 0xFF6347
$Red = 0xFF0000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd
Func Close()
Exit
EndFunc
Func _SecColor()
Select
Case @SEC < 6
GUICtrlSetColor($prSec, $Chartreuse)
Case (@SEC > 5) And (@SEC < 11)
GUICtrlSetColor($prSec, $Lime)
Case (@SEC > 10) And (@SEC < 16)
GUICtrlSetColor($prSec, $LimeGreen)
Case (@SEC > 15) And (@SEC < 21)
GUICtrlSetColor($prSec, $YellowGreen)
Case (@SEC > 20) And (@SEC < 26)
GUICtrlSetColor($prSec, $Gold)
Case (@SEC > 25) And (@SEC < 31)
GUICtrlSetColor($prSec, $Orange)
Case (@SEC > 30) And (@SEC < 36)
GUICtrlSetColor($prSec, $Goldenrod)
Case (@SEC > 35) And (@SEC < 41)
GUICtrlSetColor($prSec, $DarkOrange)
Case (@SEC > 40) And (@SEC < 46)
GUICtrlSetColor($prSec, $Coral)
Case (@SEC > 45) And (@SEC < 51)
GUICtrlSetColor($prSec, $Salmon)
Case (@SEC > 50) And (@SEC < 56)
GUICtrlSetColor($prSec, $Tomato)
Case Else
GUICtrlSetColor($prSec, $Red)
EndSelect
EndFunc
Func _MinColor()
Select
Case @MIN < 6
GUICtrlSetColor($prMin, $Chartreuse)
Case (@MIN > 5) And (@MIN < 11)
GUICtrlSetColor($prMin, $Lime)
Case (@MIN > 10) And (@MIN < 16)
GUICtrlSetColor($prMin, $LimeGreen)
Case (@MIN > 15) And (@MIN < 21)
GUICtrlSetColor($prMin, $YellowGreen)
Case (@MIN > 20) And (@MIN < 26)
GUICtrlSetColor($prMin, $Gold)
Case (@MIN > 25) And (@MIN < 31)
GUICtrlSetColor($prMin, $Orange)
Case (@MIN > 30) And (@MIN < 36)
GUICtrlSetColor($prMin, $Goldenrod)
Case (@MIN > 35) And (@MIN < 41)
GUICtrlSetColor($prMin, $DarkOrange)
Case (@MIN > 40) And (@MIN < 46)
GUICtrlSetColor($prMin, $Coral)
Case (@MIN > 45) And (@MIN < 51)
GUICtrlSetColor($prMin, $Salmon)
Case (@MIN > 50) And (@MIN < 56)
GUICtrlSetColor($prMin, $Tomato)
Case Else
GUICtrlSetColor($prMin, $Red)
EndSelect
EndFunc
Func _HourColor()
Select
Case @HOUR < 3
GUICtrlSetColor($prHour, $Chartreuse)
Case (@HOUR > 2) And (@HOUR < 5)
GUICtrlSetColor($prHour, $Lime)
Case (@HOUR > 4) And (@HOUR < 7)
GUICtrlSetColor($prHour, $LimeGreen)
Case (@HOUR > 6) And (@HOUR < 9)
GUICtrlSetColor($prHour, $YellowGreen)
Case (@HOUR > And (@HOUR < 11)
GUICtrlSetColor($prHour, $Gold)
Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else
GUICtrlSetColor($prHour, $Red)
EndSelect
EndFunc
Mfg Spider
Hallo!
Vielen dank nochma an alle Ja.. man wird auch nich jünger, hört bitte auf zu zählen wann ich schon wider ein jahr älter werde und ytwinky: als du das geschrieben hast, hab ich noch gefeiert
Mfg Spider
Hallo
#include <GUIConstants.au3>
$h_maingui = GUICreate("FB 0.00A for GW", 320, 70, -1, -1)
$h_progressbar = GUICtrlCreateProgress(10, 10, 300, 20, $PBS_SMOOTH )
$h_fillbt = GUICtrlCreateButton("&Fill", 10, 40, 60, 20)
GUISetState(@SW_SHOW, $h_maingui)
$f_readvalue = 25.8
GUICtrlSetData($h_progressbar, $f_readvalue)
While 1
$a_msg = GUIGetMsg(1)
Select
Case $a_msg[0] == $GUI_EVENT_CLOSE
ExitLoop 1
Case $a_msg[0] == $h_fillbt
GUICtrlSetData($h_progressbar, $f_readvalue)
EndSelect
WEnd
GUIDelete($h_maingui)
Exit(0)
Mfg Spider
Hallo
Probier das mal, wenn es nich funktioniert ersetze die '57' mal durch '58' beim dll aufruf!
#NoTrayIcon
#include <Array.au3>
#include <Constants.au3>
#include <GUIConstants.au3>
Opt("MustDeclareVars", 0)
main()
Func _ClewareGetTemp($s_dllpath, $s_function, $s_returnval)
Local $h_dll
$h_dll = DllOpen($s_dllpath)
If $h_dll == -1 Then
MsgBox(16, "Error", "Unable to open " & $s_dllpath)
EndIf
$dllret = DllCall($h_dll,'int','OpenCleware')
If Not @error Then MsgBox(0,"","Gefundene geräte: "&$dllret[0])
$dllret = DllCall($h_dll,'int','57','int',1);GetTemperature(int deviceNo, double *Temperature, int *timeID) ;
Select
Case @error == 1
MsgBox(16, "Error", "Unable to use " & $s_dllpath)
Case @error == 2
MsgBox(16, "Error", "Unknown return type of " & $s_function)
Case @error == 3
MsgBox(16, "Error", "Function " & $s_function & " not found in " & $s_dllpath)
EndSelect
If IsArray($dllret) Then MsgBox(0,"",$dllret[0])
DllClose($h_dll)
EndFunc
Func main()
Local Const $S_APPTITLE = "USB Temperature"
Local Const $S_APPVERSION = "1.0"
Local Const $S_DLLPATH = "USBaccess.dll"
Local $a_harddisk, $i_maingui, $i_readtempbt, $a_msg
$i_maingui = GUICreate($S_APPTITLE & " v" & $S_APPVERSION, 640, 480, -1, -1, $WS_BORDER + $WS_SYSMENU + $WS_VISIBLE)
$i_readtempbt = GUICtrlCreateButton("&Read Temperature", 10, 10, 120, 20)
While 1
$a_msg = GUIGetMsg(1)
Select
Case $a_msg[0] == $GUI_EVENT_CLOSE
ExitLoop
Case $a_msg[0] == $i_readtempbt
_ClewareGetTemp($S_DLLPATH, "CUSBaccess CWusb", "none")
EndSelect
WEnd
GUIDelete($i_maingui)
Exit(0)
EndFunc
Mfg Spider
Hallo!
Meinst du sowashier?
$momProgress = 55
$MaxProgress = 25.8
ProgressOn("Wieviel benutzt wird","")
_ProgressSet($momProgress,$MaxProgress)
Sleep(5000)
ProgressOff()
Func _ProgressSet($iProg,$iMaxProg)
$iProg = StringReplace(StringReplace($iProg,".",""),",","")
$iProg = $iProg/$iMaxProg*100
$ProgSet = $iProg
If $ProgSet >= 100 Then $ProgSet = 100
ProgressSet($ProgSet,Round($iProg,1)&"%")
EndFunc
Mfg Spider
Hallo!
Nein, es geht mit GuiCtrlSetImage
[autoit]$pic=GUICtrlCreatePic("pic.jpg" 1,1)
Sleep(5000)
GUICtrlSetImage($pic, "pic_neu.jpg")
Mfg Spider
Hallo!
Vielen dank an alle Ich werd versuchen ohne alc zu feiern, auch wenn ich mir noch nich ganz sicher bin wie das gehen soll Vielen dank für diesen Thread um genau die richtige uhrzeit (0:00 ;-)) Auch wenn ich in letzerzeit nicht so oft im Forum war, aus persönlichen gründen, werde ich natürlich versuchen zu oft wie nur möglich hierrein zu schnuppern und nach möglichkeit auch fragen beantworten (wenn nich schon jemmand schneller war )
Mfg Max (mal etw persönlicher :P)
HAllo
Oh, sorry, das hab ich vergessen zu sagen :"> Natürlich braucht ihr 3.2.4.5 oder höher, danke fürs lob milko
Mfg Spider
Hallo!
Ich präsentiere ^^: die erste File Over TCP Funktion
Das Projekt besteht aus 2 Funktionen:
_FileSend
#include-once
[/autoit] [autoit][/autoit] [autoit];===============================================================================
;
; Function Name: _FileSend
; Description:: Sending a File to an Server (See _FileReceive)
; Parameter(s):
;$sFile : The File to send
;$IP : The target IP Adress
;$PORT [Optional] : The Port to use (must be the same as by _FileRecevie!!)
;$iSplash [Optional] : 1(defaul) = show SplashText
; 0 = dont show SplashText
;$iWaitWhileConnected [Optional] : 0 = If TCPConnect faild (@error) Return with error Code 2
; 1(Default) = If TCPConnect faild put it in a while until connected
; Requirement(s): -
; Return Value(s): On Succes Return 1
; On faild Return -1 and @error code 1-3:
; @error = 1: File not exist
; @error = 2: TCPConnect faild (only able if $iWaitWhileConnected <> 1)
; @error = 3: Faild to Open File
; @error = 4: A Connectionproblem while sending
; Author(s): GtaSpider
;
;===============================================================================
Func _FileSend($sFile, $IP, $PORT = 4324,$iSplash=1, $iWaitWhileConnected = 1)
Local $iMainSocket = -1, $sBuff, $iFileOp,$sRecv
If Not FileExists($sFile) Then Return SetError(1,0,-1)
If $iSplash Then $iSplash = SplashTextOn('','Try To Connect...',200,20,-1,-1,1)
TCPStartup()
If Number($iWaitWhileConnected) = 1 Then
While $iMainSocket = -1
$iMainSocket = TCPConnect($IP, $PORT)
WEnd
Else
$iMainSocket = TCPConnect($IP, $PORT)
If @error Then Return SetError(2, 0, -1)
EndIf
If $iSplash Then ControlSetText($iSplash,'','Static1','Read File...')
$iFileOp = FileOpen($sFile, 16)
If @error Then Return SetError(3,0,-1)
$sBuff = Binary(StringTrimLeft($sFile,StringInStr($sFile,"\",-1,-1))&",")&FileRead($iFileOp)
FileClose($iFileOp)
If $iSplash Then ControlSetText($iSplash,'','Static1','Sending File...')
While BinaryLen($sBuff)
$iSendReturn = TCPSend($iMainSocket, $sBuff)
If @error Then Return SetError(4, 0, -1)
TrayTip('',$iSendReturn,1)
$sBuff = BinaryMid ($sBuff, $iSendReturn + 1, BinaryLen ($sBuff) - $iSendReturn)
WEnd
If $iSplash Then ControlSetText($iSplash,'','Static1','Succesfull!')
TCPCloseSocket($iMainSocket)
TCPShutdown()
Sleep(1000)
SplashOff()
Return 1
EndFunc
_FileReceive
#include-once
[/autoit] [autoit][/autoit] [autoit];===============================================================================
;
; Function Name: _FileReceive
; Description:: Receives a File from an Client (See _FileSend)
; Parameter(s):
;$sFileName [Optional] : The Filename to save (if default or "" then using the original File Name)
;$IP [Optional] : The IP where the Server run, Default = @IPAdress1
;$PORT [Optional] : The Port to use (must be the same as by _FileSend!!)
;$iSplash [Optional] : 1(defaul) = show SplashText
; Requirement(s): -
; Return Value(s): On Succes Return 1
; On faild Return -1 and @error code 1-3:
; @error = 1: Error creating Listening socket on IP
; @error = 2: Faild to open file
; @error = 3: Faild to write file
; Author(s): GtaSpider
;
;===============================================================================
Func _FileReceive($sFileName = '', $IP = @IPAddress1, $PORT = 4324,$iSplash=1)
Local $iMainSocket, $iAccSocket = -1, $sBuff, $sRecv = "", $i = 0, $iFirstWhile = True
TCPStartup()
$iMainSocket = TCPListen($IP, $PORT)
If @error Then Return SetError(1,0,-1)
If $iSplash Then $iSplash = SplashTextOn('','Wait For Incoming...',200,20,-1,-1,1)
While $iAccSocket = -1
$iAccSocket = TCPAccept($iMainSocket)
Sleep(50)
WEnd
$sBuff = Binary ($sBuff)
If $iSplash Then ControlSetText($iSplash,'','Static1','Incoming...')
While $sRecv = ""
$sRecv = TCPRecv($iAccSocket, 2048, 1)
$sRecv = BinaryToString ($sRecv)
WEnd
If $iSplash Then ControlSetText($iSplash,'','Static1','Receive File...')
While $sRecv <> ""
If StringInStr($sRecv, ',') And $iFirstWhile Then
$sTmp = StringLeft($sRecv, StringInStr($sRecv, ",") - 1)
$sRecv = StringTrimLeft($sRecv, StringLen($sTmp) + 1)
If StringLen($sFileName) < 1 Then $sFileName = $sTmp
$iFirstWhile = False
EndIf
$sBuff &= $sRecv
$sRecv = BinaryToString (TCPRecv($iAccSocket, 2048, 1))
If @error Then ExitLoop
WEnd
If $iSplash Then ControlSetText($iSplash,'','Static1','Write To File...')
If FileExists($sFileName) Then
$sTmp = StringSplit($sFileName, ".")
If $sTmp[0] < 2 Then
While 1
$i += 1
If Not FileExists($sFileName & "(" & $i & ")") Then
$sFileName = $sFileName & "(" & $i & ")"
ExitLoop
EndIf
WEnd
Else
While 1
$i += 1
If Not FileExists($sTmp[1] & "(" & $i & ")" & $sTmp[2]) Then
$sFileName = $sTmp[1] & "(" & $i & ")." & $sTmp[2]
ExitLoop
EndIf
WEnd
EndIf
EndIf
$iFileOp = FileOpen($sFileName, 16 + 2)
If @error Then Return SetError(2,0,-1)
FileWrite($iFileOp, $sBuff)
If @error Then Return SetError(3,0,-1)
FileClose($iFileOp)
If $iSplash Then ControlSetText($iSplash,'','Static1','Succesfull!')
TCPCloseSocket($iAccSocket)
TCPShutdown()
Sleep(1000)
Return 1
EndFunc ;==>_FileReceive
Die Send funktion sendet eine Datei zu einem Server.
Die Receive funktion empfängt eine Datei von einem Client.
Mehr erfahrt ihr in der udf beschreibung über den Funktionen.
Man kann die beieden Funktionen nicht in einem Skript verwenden, da sie ja logischerweise beide Connecten müssen.
Beispiele:
_FileSend Beispiel:
_FileSend(@WindowsDir&"\cmd.exe",@IPAddress1);Sendet die datei cmd.exe an die IP adresse @IPAdress1(Also an die eigene)
If @error Then MsgBox(48,"","Error: "&@error)
_FileSend(@WindowsDir&"\cmd.exe","192.168.0.1",4444,0,0);Sendet die datei cmd.exe an die IP adresse 192.168.0.1 über port 4444, Splashtext wird nicht angezeigt und wenn er beim ersten mal Connecten fehlschlägt bricht er ab.
If @error Then MsgBox(48,"","Error: "&@error)
_FileReceive Beispiel:
_FileReceive();Speichert die datei mit dem Original namen ab, die IP ist @IPADress1, Port ist 4324 und der Splashtext wird gezeigt
If @error Then MsgBox(48,"","Error: "&@error)
_FileReceive("EineDatei.exe","192.168.0.1",4444,0);Speichert die datei mit dem Namen "EineDatei.exe" ab, die ip ist 192.168.0.1, der Port ist 4444 und der Splashtext wird nicht angezeigt
If @error Then MsgBox(48,"","Error: "&@error)
Bitte um anregungen und bugreport
Mfg Spider
Hallo
wer lesen kann -.- hast recht bernd.. sry.
in einer dos Box schreiben ist momentan mit autoit leider nicht möglich. Nur halt in der Box von SciTe mit ConsoleWrite.
Mfg Spider