Beiträge von Schnitzel

**Schnitzel**

hast du die ganze rar runtergeladen und entpackt?

da werden blos irgendwelche pfade zu den bilddateien nich passen...

**Schnitzel**

hab im englischen forum nen thread gefunden wo sie anscheinend dabei sind ne udf zu erstellen.

oder vllt auch schon fertig ka

musst dir selber ansehn wie gut das funktioniert

http://www.autoitscript.com/forum/index.php?showtopic=91439

**Schnitzel**

Sry hatte das & vergessen aber das ist ja geklärt

hier gibts immer die aktuelle hilfe

http://translation.autoit.de/hilfe.php

wenn das problem gelöst ist kannst du es als gelöst markieren indem du den ersten post bearbeitest, das präfix auf gelöst setzt und sendest (bzw speicherst)

**Schnitzel**

Herzlich willkommen im forum

was du suchst sind die Autoit Makros.
stehen alle in der hilfe.

spezell das problem:

[autoit]

ShellExecute(@Desktopdir & "\MeinProgramm.exe")

[/autoit]

**Schnitzel**

wow respekt.
funktionieren tuts schonmal gut
und minesweeper mochte ich schon immer

wieviel vom dem script ist denn per copy&paste immer wieder eingefügt?^^
reines tippen würd ja bestimmt bisschen dauern

**Schnitzel**

1. ja zum beispiel mit ner bildänderung oder mit ner 2ten gui im vordergrund, oder mit ner avi oder....
da sind dir keine grenzen gesetzt

2. geht genauso. man kann recht viel machen. guictrlcreateavi oder über objekte flash dateien oder ähnliches einfügen oder bilder über bewegungen animieren oder mit gdi+ was hübsches
je nachdem was du kannst und was dir am liebsten is

**Schnitzel**

liefer doch nen ansatz dann helf ich dir bei deinen problemen.
im prinzip brauchste ja nur n paar werte eingeben lassen und die dann in ne excel tabelle eintragen lassen.
und evtl ein paar noch miteinander verrechnen.

achja und jetz bin ich dann gleich off also eher heute früh wo ich helfen werd, wenn bis dahin nich schon geholfen wurde

**Schnitzel**

also so ne excel tab wäre auf max 5 min erstellt. nur leider hab ich hier kein excel

autoit dauert bissl länger aber dürfte genausoleicht sein

**Schnitzel**

vllt hilft

[autoit]

#RequireAdmin

[/autoit]

am anfang des scriptes.

ansonsten wäre dein quellcode ganz intressant. am besten mit den includes die du verwendest (zumindest die die nicht standard sind so wie die FF.au3)

**Schnitzel**

das war wiedermal ne schwere geburt

hauptsache es funktioniert jetz.

bis zum nächsten update "deines" scriptes

**Schnitzel**

das würde ja ohne autoit sehr viel schneller gehn.
für was gibts die guten alten excel formeln^^
weil genau für sowas wurde excel ja mal geschaffen

oder brauchst dus in autoit???

**Schnitzel**

nimm mal das guisetstate in zeile 39 und 63 raus

**Schnitzel**

da haste irgendwas falsch gemacht^^

poste doch nochmal dein ganzes script

**Schnitzel**

genau das geht doch auch. wenn man mein script nimmt und statt den msgboxen regwrite und regdelete einfügt

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Constants.au3>

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

Opt("TrayMenuMode", 1)
#Region ### START Koda GUI section ### Form=
TraySetClick("9")
$AutostartButton = TrayCreateItem("MenuItem1")
#EndRegion ### END Koda GUI section ###

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

While 1
$tmsg = TrayGetMsg()
Switch $tmsg
Case $AutostartButton
If BitAnd(TrayItemGetState($AutostartButton),$TRAY_CHECKED) Then
RegWrite("HKEY_CURRENT_USER\Software\Test", "Test Schlüssel", "REG_SZ", "Hallo dies ist ein Test")
Else
RegDelete ("HKEY_CURRENT_USER\Software\Test", "Test Schlüssel")
EndIf
EndSwitch
WEnd

[/autoit]

**Schnitzel**

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.4.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUICtrlSetOnHover_UDF.au3>

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

Global $std_Hover_Image = @ScriptDir & "\rgt.bmp"
Global $sBack_Hover_Image = @ScriptDir & "\rg.bmp"
Global $std_Hover_Image2 = @ScriptDir & "\art.bmp"
Global $sBack_Hover_Image2 = @ScriptDir & "\ar.bmp"
Global $std_Hover_Image3 = @ScriptDir & "\ret.bmp"
Global $sBack_Hover_Image3 = @ScriptDir & "\re.bmp"
Global $std_Hover_Image4 = @ScriptDir & "\cat.bmp"
Global $sBack_Hover_Image4 = @ScriptDir & "\ca.bmp"
Global $std_Hover_Image5 = @ScriptDir & "\wot.bmp"
Global $sBack_Hover_Image5 = @ScriptDir & "\wo.bmp"
Global $std_Hover_Image6 = @ScriptDir & "\bet.bmp"
Global $sBack_Hover_Image6 = @ScriptDir & "\be.bmp"
Global $std_Hover_Image7 = @ScriptDir & "\set.bmp"
Global $sBack_Hover_Image7 = @ScriptDir & "\set.bmp"

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

GUICreate("Test", 600, 400)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 350, 0, 250, 490)
$Flash.Movie = "C:\loader.swf?mainfile=C:\main.swf"
$Flash.loop = true
GUISetState(@SW_SHOW)
$pic = GUICtrlCreatePic("C:\image1.bmp",0,-27,350,530,0)
GUICtrlSetSTate($pic,$GUI_DISABLE)
$button = GUICtrlCreateButton("test", 30, 160, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button2 = GUICtrlCreateButton("test2", 30, 200, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image2)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button3 = GUICtrlCreateButton("test3", 30, 240, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image3)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button4= GUICtrlCreateButton("test4", 30, 280, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image4)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button5= GUICtrlCreateButton("test5", 30, 320, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image5)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button6= GUICtrlCreateButton("test6", 30, 360, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image6)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")
$button7= GUICtrlCreateButton("test7", 180, 220, 140, 30, $BS_BITMAP)
GUICtrlSetImage(-1, $std_Hover_Image7)
_GUICtrl_SetOnHover(-1, "_Hover_Image_Proc", "_Hover_Image_Proc")

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

If Ping("85.131.2037.229") Then ;
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp", 40, 40, 20, 20); positionen und größe anpassen
Else
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\down.bmp", 40, 40, 20, 20); positionen und größe anpassen
EndIf
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button
ShellExecute("http://www.rising-gods.de")
case $button2
ShellExecute("http://arsenal.rising-gods.de")
case $button3
run("notepad.exe " & "" & @scriptdir & "\Data\deDE\realmlist.wtf")
case $button4
DirRemove(@scriptdir & "\Cache\",1)
if True then
msgbox(4096,"Status","Cache erfolgreich gelöscht")
if False then
msgbox(4096,"Status","Error - Falsches Verzeichnis?")
EndIf
EndIf
case $button5
ShellExecute(@ScriptDir & "\wow.exe")
case $Button6
exit
EndSwitch
WEnd

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

Func _Hover_Image_Proc($iCtrlID, $iParam)
Local $picbutton1 = $sBack_Hover_Image
Local $picbutton2 = $sBack_Hover_Image2
Local $picbutton3 = $sBack_Hover_Image3
Local $picbutton4 = $sBack_Hover_Image4
Local $picbutton5 = $sBack_Hover_Image5
Local $picbutton6 = $sBack_Hover_Image6
Local $picbutton7 = $sBack_Hover_Image7
If $iParam = 2 Then
$picbutton1 = $std_Hover_Image
$picbutton2 = $std_Hover_Image2
$picbutton3 = $std_Hover_Image3
$picbutton4 = $std_Hover_Image4
$picbutton5 = $std_Hover_Image5
$picbutton6 = $std_Hover_Image6
$picbutton7 = $std_Hover_Image7

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

EndIf
Switch $iCtrlID
Case $button
GUICtrlSetImage($iCtrlID, $picbutton1)
Case $button2
GUICtrlSetImage($iCtrlID, $picbutton2)
Case $button3
GUICtrlSetImage($iCtrlID, $picbutton3)
Case $button4
GUICtrlSetImage($iCtrlID, $picbutton4)
Case $button5
GUICtrlSetImage($iCtrlID, $picbutton5)
Case $button6
GUICtrlSetImage($iCtrlID, $picbutton6)
Case $button7
GUICtrlSetImage($iCtrlID, $picbutton7)
Case $button8
GUICtrlSetImage($iCtrlID, $picbutton8
Case $button9
GUICtrlSetImage($iCtrlID, $picbutton9)
EndSwitch
EndFunc

[/autoit]

**Schnitzel**

du gehst aber schon so vor oder?

funktion ausführen , pc ausschalten, funktion nochmal ausführen

bzw so:

Spoiler anzeigen

[autoit]

#include <Array.au3>

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

Global Const $SV_TYPE_WORKSTATION = 0x1
Global Const $SV_TYPE_SERVER = 0x2
Global Const $SV_TYPE_SQLSERVER = 0x4
Global Const $SV_TYPE_DOMAIN_CTRL = 0x8
Global Const $SV_TYPE_DOMAIN_BAKCTRL = 0x10
Global Const $SV_TYPE_TIME_SOURCE = 0x20
Global Const $SV_TYPE_AFP = 0x40
Global Const $SV_TYPE_NOVELL = 0x80
Global Const $SV_TYPE_DOMAIN_MEMBER = 0x100
Global Const $SV_TYPE_PRINTQ_SERVER = 0x200
Global Const $SV_TYPE_DIALIN_SERVER = 0x400
Global Const $SV_TYPE_XENIX_SERVER = 0x800
Global Const $SV_TYPE_NT = 0x1000
Global Const $SV_TYPE_WFW = 0x2000
Global Const $SV_TYPE_SERVER_MFPN = 0x4000
Global Const $SV_TYPE_SERVER_NT = 0x8000
Global Const $SV_TYPE_POTENTIAL_BROWSER = 0x10000
Global Const $SV_TYPE_BACKUP_BROWSER = 0x20000
Global Const $SV_TYPE_MASTER_BROWSER = 0x40000
Global Const $SV_TYPE_DOMAIN_MASTER = 0x80000
Global Const $SV_TYPE_WINDOWS = 0x400000
Global Const $SV_TYPE_CLUSTER_NT = 0x1000000
Global Const $SV_TYPE_TERMINALSERVER = 0x2000000
Global Const $SV_TYPE_CLUSTER_VS_NT = 0x4000000
Global Const $SV_TYPE_LOCAL_LIST_ONLY = 0x40000000
Global Const $SV_TYPE_DOMAIN_ENUM = 0x80000000
Global Const $SV_TYPE_ALL = 0xFFFFFFFF

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

$aCompList = _NetServerEnum($SV_TYPE_ALL)
_ArrayDisplay($aCompList)
msgbox(0,"", "klicke auf ok sobald der pc herruntergefahren ist")
$aCompList = _NetServerEnum($SV_TYPE_ALL)
_ArrayDisplay($aCompList)

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

Func _NetServerEnum ($iSrvType = -1, $sDomain = '')
Local $uBufPtr = DllStructCreate("ptr;int;int"), $res[1]=[0], $i
Local $uRecord = DllStructCreate("dword;ptr"), $iRecLen = DllStructGetSize($uRecord)
Local $uString = DllStructCreate("char[16]")
Local $uDomain = DllStructCreate("byte[32]"), $pDomain = 0
If Not ($sDomain='' Or $sDomain='*') Then
DllStructSetData($uDomain, 1, StringToBinary($sDomain,2))
$pDomain = DllStructGetPtr($uDomain)
EndIf
Local $ret = DllCall ("netapi32.dll", "int", "NetServerEnum", _
"ptr", 0, "int", 100, _
"ptr", DllStructGetPtr($uBufPtr,1), "int", -1, _
"ptr", DllStructGetPtr($uBufPtr,2), _
"ptr", DllStructGetPtr($uBufPtr,3), _
"int", $iSrvType, "ptr", $pDomain, "int", 0 )
If $ret[0] Then Return SetError(1, $ret[0], '')
Local $res[DllStructGetData($uBufPtr,3)+1]=[DllStructGetData($uBufPtr,3)]
For $i=1 To DllStructGetData($uBufPtr,3)
Local $uRecord = DllStructCreate("dword;ptr", DllStructGetData($uBufPtr,1)+($i-1)*$iRecLen)
Local $sNBName = DllStructCreate("byte[32]", DllStructGetData($uRecord,2))
DllStructSetData($uString,1,BinaryToString(DllStructGetData($sNBName,1),2))
$res[$i] = DllStructGetData($uString,1)
Next
$ret = DllCall ("netapi32.dll", "int", "NetApiBufferFree", "ptr", DllStructGetData($uBufPtr,1))
Return $res
EndFunc

[/autoit]

**Schnitzel**

du führst nur das hier aus und hast 2 fenster?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$Form1 = GUICreate("", 200, 200)

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

If Ping("85.131.2037.229") Then ;
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp", 40, 40, 20, 20)
Else
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\down.bmp", 40, 40, 20, 20)
EndIf
GUISetState(@SW_SHOW)

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

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

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

EndSwitch
WEnd

[/autoit]

dann würd ich an deiner stelle autoit neu installieren^^

**Schnitzel**

jup du suchst quasi:

[autoit]

FileSaveDialog()

[/autoit]

**Schnitzel**

ach ich idiot. versuch mal das

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$Form1 = GUICreate("", 200, 200)

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

If Ping("85.131.2037.229") Then ;
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp", 40, 40, 20, 20)
Else
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\down.bmp", 40, 40, 20, 20)
EndIf
GUISetState(@SW_SHOW)

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

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

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

EndSwitch
WEnd

[/autoit]

**Schnitzel**

so sollts gehn.

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("", 200, 200)
GUISetState(@SW_SHOW)

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

If Ping("85.131.2037.229") Then
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\up.bmp", 40, 40, 20, 20)
Else
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\down.bmp", 40, 40, 20, 20)
EndIf

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

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

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

EndSwitch
WEnd

[/autoit]

Beiträge von Schnitzel

Minesweeper in Autoit

OpenOffice-Vorlage - Textfelder einer Vorlage ausfüllen

Start einer Anwendung mit Uservariable im Link

Start einer Anwendung mit Uservariable im Link

Minesweeper in Autoit

Preloader (Ladebildschirm)

Bezugskalkulation Programm / als Exel abspeicheren

Bezugskalkulation Programm / als Exel abspeicheren

Keine Verbindung zu Firefox

Guictrlcreatepic problem...

Bezugskalkulation Programm / als Exel abspeicheren

Guictrlcreatepic problem...

Guictrlcreatepic problem...

TrayItems checked/unchecked

Guictrlcreatepic problem...

_NetServerEnum scheint nicht alle PCs im Netzwerk aufzulisten

Guictrlcreatepic problem...

Schleife die vom Benutzer bestimmt wird

Guictrlcreatepic problem...

Guictrlcreatepic problem...