ATan = ArcusTangens von 1, d.h. umgekehrter Tangens^^
Musst du in der Schule haben, irgendwann 
Beiträge von PenGuin
-
-
Statt pi auszuschreiben, nimm:
[autoit]Global Const $pi = 4 * atan(1)
[/autoit]MfG
-
-
Hallo,
ich habe dieses Script hier im Forum von Mega gefunden:Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global Const $SV_TYPE_WORKSTATION = 0x1
[/autoit] [autoit][/autoit] [autoit]
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$aCompList = _NetServerEnum($SV_TYPE_ALL)
[/autoit] [autoit][/autoit] [autoit]_ArrayDisplay($aCompList)
[/autoit] [autoit][/autoit] [autoit]Func _NetServerEnum ($iSrvType = -1, $sDomain = '')
[/autoit]
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
EndFuncJedoch scheint dieses Script die PC Namen, die mal ins Netzwerk bei Scriptstart eingeloggt waren zu speichern.
D.h. wenn ein PC, der eingeloggt war im Netzwerk, herunterfährt, wird trotzdem in der Liste der PC weiterhin angezeigt.
Habt ihr eine Lösung?
Ich hab nämlich vor ein Programm zu bauen, welches sämtliche IPs auflistet, dazu Computername, der sich dahinter verbirgt und Netzwerkkarte.MfG
€: Titel geändert! Neue Frage unten!
-
Was bringt es eigentlich die Priorität eines Fensters zu ändern? Also was passiert dann?
-
Ich würde gerne auf meine D3D Hook Frage zurückkommen, oder soll ich dazu ein neuen Thread nehmen?
Vllt kann mir ja progandy helfen^^MfG
-
Und meinetwegen lass es doch ein "Noob"-Script sein, das entzieht ihm doch nicht die Daseinsberechtigung oder?
Zum Glück ist das nicht mit jedem User so, sonst würden sich Neulinge, die gerade mit AutoIt angefangen haben, sich weigern ihr Script vorzustellen, weil sie Angst haben, so angeschnauzt zu werden wie qixx gerade
-
Ich glaube er hat das hier ins Forum gestellt, gerade um Anregungen zu bekommen, wie man das in ein richtiges Captcha umzuwandeln, anstatt hier angemeckert zu werden, dass es unsicher ist.
Wenigstens ist er auf die Idee gekommen und hat sich die Mühe gemacht.
@ PrideRage: Mach dus halt besser und bau ein sicheres Script, und stell es hier vor -
Ach seh ich jetzt grad x)
Vllt sollte man noch dazuschreiben, dass man $Zahl1, $Zahl2 und $Operator nicht im restlichen Script verwendet werden sollten. -
Warum deklarierst du $Zahl1, $Zahl2 und $Operator Global?
Wäre es nicht besser in beiden Funktionen Local zu nehmen, damit es kein Fehler gibt, wenn man dieselben Variablen in einem Script verwenden möchte? -
Aber sollte das nicht mit einer dll schnell genug sein?
-
Ich weiß nicht, ob diese Frage gegen die Forenregeln verstößt, aber sie passt zum Thread:
Weiß jemand, wie man die D3D EndScene hookt, damit man eigene Fenster in Programme "einschleusen" kann, die mit DirectX laufen.
Die passende *.dll hab ich schon, nur nicht das nötige Know-How
MfG
-
...
Thema gelöst, lol
Manchmal sieht man den Wald vor lauter Bäumen nicht Danke xD -
Hallo,
ich habe in meinem Script ein Problem mit _StringBetween.
Er findet einen String nicht, obwohl er da genauso steht.Hier der TeilCode:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GuiListBox.au3>
#include <String.au3>
#include <WindowsConstants.au3>Global $GetText
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
Global $Form1 = GUICreate("Anrufliste", 351, 404, 554, 238)
GUISetBkColor(0xB4B4B4)
Global $List1 = GUICtrlCreateList("", 8, 48, 225, 253, $WS_VSCROLL, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$hList1 = GUICtrlGetHandle($List1)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Label1 = GUICtrlCreateLabel("Anrufliste", 106, 8, 117, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
Global $Button1 = GUICtrlCreateButton("Hinzufügen", 8, 312, 105, 33, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Entfernen", 120, 312, 105, 33, $WS_GROUP)
Global $Button6 = GUICtrlCreateButton("Editieren", 232, 312, 105, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_Edit")
Global $Button3 = GUICtrlCreateButton("Nähere Infos", 8, 360, 105, 33, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Alle Löschen", 120, 360, 105, 33, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Schließen", 232, 360, 105, 33, $WS_GROUP)
Global $List2 = GUICtrlCreateList("", 248, 48, 89, 253)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ####Region ### START Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
Global $Form4 = GUICreate("Anrufer editieren", 362, 475, 543, 159)
GUISetBkColor(0xB4B4B4)
GUISetFont(11, 400, 0, "Arial")
Global $Label10 = GUICtrlCreateLabel("Name:", 24, 60, 47, 21)
Global $Label11 = GUICtrlCreateLabel("Anrufsbetreff:", 24, 140, 91, 21)
Global $Label12 = GUICtrlCreateLabel("Telefonnummer", 24, 372, 107, 21)
Global $Label13 = GUICtrlCreateLabel("Anrufer editieren", 75, 12, 231, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
Global $Input5 = GUICtrlCreateInput("", 24, 81, 313, 26, $ES_READONLY)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetLimit(-1, 19)
Global $Edit3 = GUICtrlCreateEdit("", 24, 161, 313, 193, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Input6 = GUICtrlCreateInput("", 24, 393, 313, 26, $ES_NUMBER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Button8 = GUICtrlCreateButton("Fertig", 108, 430, 140, 39, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_Add")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###_ReadIniFile()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(50)
WEndFunc _Edit()
[/autoit] [autoit][/autoit] [autoit]Global $CurSel = _GUICtrlListBox_GetCurSel($List1)
[/autoit] [autoit][/autoit] [autoit]
Global $GetText = _GUICtrlListBox_GetText($List1, $CurSel)
Local $CurSel2 = _GUICtrlListBox_GetCurSel($List2)
Local $GetText2 = _GUICtrlListBox_GetText($List2, $CurSel2)If Not $GetText = "" Then
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form4)WinSetTitle("Anrufer editieren", "", "Anrufer '" & $GetText& "' editieren")
[/autoit] [autoit][/autoit] [autoit]$IniRead = IniRead(@ScriptDir & "\data\setup.ini", "Anrufer", $GetText, "")
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($Input5, $GetText & " - " & $GetText2)
[/autoit] [autoit][/autoit] [autoit]Global $TelNummer = _StringBetween($IniRead, "°", " °")
[/autoit] [autoit][/autoit] [autoit]
$Besch = _StringBetween($IniRead, ">", "<")If $TelNummer = "" Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Input6, "Es wurde hierzu keine Angabe getätigt")
Else
GUICtrlSetData($Input6, $TelNummer[0])
EndIfIf $Besch = "" Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Edit3,"Es wurde hierzu keine Angabe getätigt")
Else
GUICtrlSetData($Edit3,$Besch[0])
EndIfElse
[/autoit] [autoit][/autoit] [autoit]
MsgBox(262208, "Auswahl", "Sie haben keinen Eintrag ausgewählt!" & @CRLF & "Bitte Eintrag für zu Editieren auswählen!")
EndIf
EndFuncFunc _Add()
[/autoit] [autoit][/autoit] [autoit]Global $Betreff2 = GUICtrlRead($Edit3)
[/autoit] [autoit][/autoit] [autoit]
Global $Nummer2 = GUICtrlRead($Input6)IniWrite(@ScriptDir & "\data\setup.ini", "Anrufer", $GetText, ">" & $Betreff2 & "<" & "°" & $Nummer2 & "°")
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW, $Form1)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_HIDE, $Form4)EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _ReadIniFile()
[/autoit] [autoit][/autoit] [autoit]$AnruferSec = IniReadSection(@ScriptDir & "\data\setup.ini", "Anrufer")
[/autoit] [autoit][/autoit] [autoit]
If Not @error Then
For $i = 1 To $AnruferSec[0][0]
_GUICtrlListBox_AddString($List1, $AnruferSec[$i][0])
Next
_GUICtrlListBox_SetCurSel($List1, 0)
EndIf$TimeForList = IniReadSection(@ScriptDir & "\data\setup.ini", "TimeForList")
[/autoit] [autoit][/autoit] [autoit]
If Not @error Then
For $a = 1 To $TimeForList[0][0]
_GUICtrlListBox_AddString($List2, $TimeForList[$a][0])
Next
_GUICtrlListBox_SetCurSel($List2, 0)
EndIfEndFunc ;==>_ReadIniFile
[/autoit]Wie man sieht, zeigt er in der GUI bei Telefonnummer nichts an.
Die Ini sieht so aus:Code[Anrufer] Test=>123<°123°Ich weiß nicht mehr weiter, hoffentlich könnt ihr mir helfen
-
Meinst du bei z.B. 60 Bananen? Dann ist 60 die 100%, oder meinst du, dass sie bei 60% aufhören soll?
Dann bau eine If-Abfrage ein und sag halt, wenn Progressbar > 60 Then .... EndIf -
Zitat
Es ist mir ein Vergnügen, Sie in unserem Bescheidenen Haus zu begrüßen. Wenn sie mir bitte folgen würden der Lord erwartet sie bereits.
zu
"Es ist mir ein Vergnügen, Sie in unserem bescheidenen Haus zu begrüßen. Wenn Sie mir bitte folgen würden, der Lord erwartet Sie bereits."
-
7,2 Zeichen Zeichen beim zweiten Mal, dafür aber auch 4 Fehler.
(Hat sich das Klavier spielen doch ausgezahlt :D)Wenn man jetzt von der Grammatik, des Satzes absieht, ist es sehr gut gelungen
-
So?
Spoiler anzeigen
[autoit]#include <GUiListBox.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Dialog", 268, 226, 303, 219)
GUISetIcon("D:\009.ico")
$Group1 = GUICtrlCreateGroup("Tools", 8, 8, 97, 177)
$Button1 = GUICtrlCreateButton("Show", 16, 24, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Hide", 16, 56, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Process List", 112, 8, 137, 177)
$List1 = GUICtrlCreateList("", 120, 24, 121, 149)
$hList1 = GUICtrlGetHandle($List1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###$altlist = ProcessList("")
[/autoit] [autoit][/autoit] [autoit]While 1 * Sleep(50)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$plist = ProcessList("notepad.exe")
If $altlist[0][0] <> $plist[0][0] Then
_process()
EndIf
Switch GUIGetMsg()
Case -3
Exit
Case $Button2 ; Hide Button
_hide1()
EndSwitch
WEndFunc _hide1(); Hide Button
[/autoit] [autoit][/autoit] [autoit]
$CurSel = _GUICtrlListBox_GetCurSel($hList1)
$GetText = _GUICtrlListBox_GetText($hList1, $CurSel)
ConsoleWrite($GetText)
If $GetText = "notepad.exe" Then
WinSetState("Unbenannt - Editor", "", @SW_HIDE)
EndIf
EndFunc ;==>_hide1Func _process()
[/autoit]
For $i = 1 To $plist[0][0]
GUICtrlSetData($List1, $plist[$i][0])
Next
EndFuncNicht die beste Lösung, denn ich weiß nicht, wie ich das Fenst per PID verstecken kann
-
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>Global $Name, $Input1, $Edit1, $Input2
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
Global $Form1 = GUICreate("Anrufliste", 330, 413, 554, 238)
GUISetBkColor(0xB4B4B4)
GUISetOnEvent(-3, "_Schliessen")
Global $List1 = GUICtrlCreateList("", 16, 56, 201, 253, $WS_VSCROLL, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $List2 = GUICtrlCreateList("", 224, 56, 89, 253, $WS_VSCROLL, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
Global $Label1 = GUICtrlCreateLabel("Anrufliste", 106, 16, 117, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
Global $Button1 = GUICtrlCreateButton("Hinzufügen", 40, 320, 105, 33, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Entfernen", 184, 320, 105, 33, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Nähere Infos", 40, 368, 105, 33, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Schließen", 184, 368, 105, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_Schliessen")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc _Schliessen()
[/autoit]
Exit
EndFunc -
Neustes AutoIt downloaded, wahlweise AdlibRegister/Unregister durch AdlibEnable/Disable austauschen.