Habs
[autoit]$var = DriveGetDrive( "FIXED" )
If NOT @error Then
MsgBox(4096,"", "Found " & $var[0] & " drives")
For $i = 1 to $var[0]
MsgBox(4096,"Drive " & $i, $var[$i])
Next
EndIf
und wie überprüf ich jetzt mit dem such befehl die restlichen platten die er gefunden hat?
ok es klappt aber wie mach ich das jetzt mit dem DriveGetDrive("FIXED")??
$lol= DriveGetDrive("FIXED")
MsgBox ( 0,"lol", $lol )
so seh ich garnix, was wird mir da angezeigt?
und wie lass ich mit _GetFilesFolder_Rekursiv dann auf D:\ suchen ?
Ähm wie funktioniert das genau?
Das:
$ret = _GetFilesFolder_Rekursiv('.', 'ini',0,1)
hab ich eingetragen
wenn ich es mit F5 starte seh ich da wo dei errors stehen , das er was gefunden hat,
speichert er das irgendwo hin oder wie?
Edit: moment ich glaub ich habs
Ich hatte glaubich das ausprobiert aber da hatte er glaubich nicht überall gesucht man musste immer ein start ordner angeben
Zu umständlich...
Hallo =)
Ich brauch eine Funktion die nach einer ini sucht z.B. Diablo2.ini. Gibt es da was?
Es soll überall suchen , ganze c Festplatte und wenn es noch mehr festplatten gibt die auch
Mfg Greek
Neee ist doch schon alles fertig , schau mal:
$rc = _INetSmtpMailCom('smtp.web.de', "Dein Name", "von welcher email adresse?", "zu welcher email adresse?", überschrift, "Der Text hier rein", "", "","", "username", "passwort")
hier gibst du deine daten nur ein, sonst musst du nichts machen
Endlich was funktionierendes gefunden!!!!!
Du siehst ja wo du deine daten eingeben musst.
#include<file.au3>
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom('', "", "", "", "", "Test <b>Ich habs geschafft!</b>", "", "","", "", "")
If @error then
msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
EndIf
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc;==>MyErrFunc
Mfg Greek
Wie es geht doch auch mit GuiCreate das zu disable
also mit Guisetstate
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$lol = GUICreate("Form1", 633, 447, 193, 125)
$lal = GUICtrlCreateButton ( "lol" ,234,234,342,24 )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetState ( @sw_disable, $lol )
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $lal
Exit
EndSwitch
WEnd
und hier gleich mit Guicreate disablen
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$lol = GUICreate("Form1", 633, 447, 193, 125,$WS_DISABLED)
$lal = GUICtrlCreateButton ( "lol" ,234,234,342,24 )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $lal
Exit
EndSwitch
WEnd
Das Ding ist doch extra da , das man sich nicht mit dem pc automatisch einloggt, versuch es erst garnicht es zu umgehen das ist zu schwer
Kannste knicken, rate mal für was das ist O_o
Warum guckst du dann nicht bei den Styles in der Hilfe?
[autoit]#include <WindowsConstants.au3>
[/autoit][autoit][/autoit][autoit]$Form1 = GUICreate("MedianDiablo Switcher", 633, 447, 193, 125,$WS_DISABLED)
[/autoit]So?
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$gui = GUICreate("Beispiel",410,410) ; erstellt ein GUI-Fenster welches mittig ausgerichtet wird
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$tab=GUICtrlCreateTab (5,105, 400,300)
$an = GUICtrlCreateButton("an", 50,50,50,50)
$aus = GUICtrlCreateButton("aus", 50,50,50,50)
GUICtrlSetState($aus, $GUI_HIDE)
; Tab 1
$tab0=GUICtrlCreateTabitem ("Grund 1")
GUICtrlSetState(-1,$GUI_SHOW); Dieser Tab wird beim Programmstart aufgerufen
; Tab 2
$tab1=GUICtrlCreateTabitem ("Grund 2")
$label1_1 = GUICtrlCreateLabel("Darf nur bei Grund 2 erscheinen",150,150,150,150)
GUISetFont(9, 300)
; Tab 3
;$tab2=GUICtrlCreateTabitem ("Grund 3")
;$label2_1 = GUICtrlCreateLabel("Darf nur bei Grund 3 erscheinen",150,150,150,150)
;GUICtrlSetBkColor(-1,0xFCFCFE) ; Grün
;GUISetFont(9, 300)
;GUICtrlSetState ($tab2,$GUI_HIDE)
;GUICtrlSetState($label2_1, $GUI_HIDE)
GUISetState ()
[/autoit] [autoit][/autoit] [autoit]; die GUI läuft bis sie geschlossen wird
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $an
$tab2=GUICtrlCreateTabitem ("Grund 3")
$label2_1 = GUICtrlCreateLabel("Darf nur bei Grund 3 erscheinen",150,150,150,150)
GUICtrlSetBkColor(-1,0xFCFCFE) ; Grün
GUISetFont(9, 300)
GUICtrlSetState($an, $GUI_HIDE)
GUICtrlSetState($label2_1, $GUI_SHOW)
GUICtrlSetState($aus, $GUI_SHOW)
GUICtrlSetState($tab2,$GUI_SHOW)
Sleep(100)
Case $msg = $aus
GUICtrlDelete($tab2)
GUICtrlSetState($aus, $GUI_HIDE)
GUICtrlSetState($an, $GUI_SHOW)
GUICtrlSetState($tab0,$GUI_SHOW)
GUICtrlSetState($label2_1, $GUI_HIDE)
EndSelect
Wend
Maus geschwindigkeit auf 0 setzen
E: z.B. MouseMove ( 100, 100, 0 )
Mfg Greek
Erste Frage: wie kann ich ermittel lassen, wo mein Fenster auf dem Desktop liegt? Denn wenn ich das weiß, kann ich die Fläche, in der ich Pixel suchen lassen will enorm verkleinern, wodurch alles schneller läuft.
Das ist nur ein kleines Fenster oder?Dann kannst du mal Winmove benutzen damit schiebt er dein Fenster immer genau dahin wo du es haben willst.
Also ich hab schonmal gesehen das, während er gespielt hat , er sowas gemacht hat.
WinSetState
[/autoit]#include <Word.au3>
$oWordApp = _WordCreate ("")
$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Neu Microsoft Word-Dokument.doc")
Tu compires? =)
wenn du es ganz einfach machen willst, dann kopier es einfach in den autostart, weist du wie man da hin kommt?
rechtsklick auf start->explorer aller benutzer->Programme->Autostart
