Hallo,
ich sehe öfters in Scripten, das man eine Funktion wie oben auch abkürzen kann, aber irgendwie verstehe ich das ganze noch nicht so recht.
kann mir das jmd mal erläutern, wie ich $k immer einen weiter hochzähle und was es noch für möglichkeiten gibt?
danke schonmal =)
also wenn du noch befehle suchst, es gibt ne coole extension für den firefox, ... evtl kannst du aus der befehlsliste war übernehmen:
chrome://ubiquity/content/cmdlist.html
nimmt er auch die richtige ip (Deine Externe) ?
HotKeySet("!t", "Terminate")
bedeutet ALT + T 
dir würde was reichen, dass immer auf ein entsprechendes fenster wartet (WinWait) und du es dann bestätigst (ControlClick).
für die Werte solltest du dir die Hilfe anschauen und du wirst das AutoIt-InfoTool nutzen müssen.
Ich hoffe das reicht dir für den Anfang ...
Aber automatisches Makro-Bestätigen hört sich schwer nach bösen dingen an
versuchs mal so ;-9
[autoit]If FileExists($wowinst & "Interface\AddOns\CharacterProfiler") Then
[/autoit]wahlweise noch ein \ vor Interface
hmm, also irgendwie funzt das nicht immer so gut und es ist arsch-langsam.
ich glaub ich lass es erstmal weg =)
ok, habs jetzt so gelöst (geht ja doch ohne ie-funcs *g*)
[autoit]Func _GetOnlinePic()
$ShitPic = ""
$oIE = _INetGetSource("http://www.imdb.de/find?s=tt&q=" & _INetExplorerCapable($aRow[0]) & "&x=0&y=0")
$BetStringa = _StringBetween($oIE, "<p><b>Meistgesuchte Titel</b>", "width=")
If Not @error Then $BetStringb = _StringBetween($BetStringa[0], 'src="', '_V1._')
If Not @error Then $ShitPic = $BetStringb[0] & "_V1._SX100_SY127_.jpg"
Return $ShitPic
EndFunc
mein prob ist jetzt, warum geht hier InetGet und _InetGetSource nicht?
[autoit]InetGet($ShitPic, "C:\Temp\_blatest.jpg")
GUICtrlSetImage($Pic1, "C:\Temp\_blatest.jpg")
GUICtrlSetImage($Pic1, _INetGetSource($ShitPic))
lad es hoch und bind es mit inetgetsource ein =)
setzt wohl eine internetverbindung voraus.
also ich habe ausgewählte seite, bei denen ich das machen würde ... guck ich mir dann aber mal im detail an.
aber nochmal zurück zu den bildern.
es klappt zwar, das erst bild von der suchseite zu nehmen, das ist aber ziemlich klein/ schlechte quali.
das bild verweist aber auf die seite des films, wo ein größeres/ besseres bild zu finden ist. wie schaffe ich den sprung dahin?
EDIT:
kann es sein, dass es so einfach nicht geht, nur mit _InetGetSource o. ä. ?
ich glaube ich brauche immer irgendwas aus den ie_funcs ... also müsste ich die seite im hintergrund laden =(
jo, nen link hab ich schon eingebaut *g*
bei imdb ist es ja recht einfach, aber hast du vllt nen tip, wie man das bei anderen seiten machen kann, da direkt nach nem filmtitel zu suchen?
danke für die tips ... mit imdb find ich nen ticken besser, da ich da das bild immer in einheitlicher größe bekommen sollte.
kann mir noch wer nen tip geben, wie/wo ich das bild im sourcecode finde *g*
ich stöber da grad durch, aber iwie ist mir da zuviel sinnloses html-zeugs drumrum.
EDIT:
habs, wieso guck ich nicht direkt in den eigenschaften nach dem link und such den im quelltext *hehe*
Hiho,
ich habe ein kleines prob. ich würde gerne bilder in meiner movie-db anzeigen lassen. dazu habe ich eigentlich ico dateien in einem bestimmten ordner, was auch klappt.
gebe ich die db aber weiter, dann mache ich das nicht mit dem order, weil sich das doch irgendwann läppert. jetzt wollte ich, wenn dort kein ico existiert, online ein bild abrufen. sollte soweit kein prob sein, wenn man den link hat, aber wie suche ich online nach einem bild, wo ich nur den filmtitel von habe? will ja nicht für jeden film extra einen festen link abspeichern.
bin leider nicht mehr so im script drin, aber wenn du das an den anfang schreibst, sollte es laufen:
$ProxyEnable = 0
glaub die proxy-func bleibt eh disabled, weil das mit ping über nen proxy nicht ging ... erinner mich nur schwach *g*
also auf enter könnte ich verzichten, wenn sich der eintrag beim navigieren schon updated ... thx, wer mal testen
EDIT: $LVN_ITEMCHANGED ist es, dank dir =)
öhm ja, ich glaub dein code hilf mir schon weiter und macht genau das, was ich brauche *g*
dank dir =)
Hiho,
ich steh mal wieder vor einem Problem. Ich möchte ein Programm schreiben, bei dem diverse Funktionen Lernfähig sind.
Es geht dabei, dass der User selber einstellen kann (anhand einer ini), nach was gesucht werden soll.
die suchfunktionen sollte dann so aussehen:
[autoit]If StringInStr($Text, $Wort[1]) then $Ergebnis = $Wort[1]
ElseIf StringInStr($Text, $Wort[2]) then $Ergebnis = $Wort[2]
EndIf
Dabei ist die Anzahl der ElseIf-Funktionen variabel, abhängig von der Anzahl der Suchoptionen in der ini.
Wie könnte man sowas realisieren???
Hallo,
ich habe ein Listview, ein Linksklick auf einen Eintrag lässt eine Funktion folgen (Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button).
man kann natürlich auch mit der tastatur nach oben/unten (enter) drücken, aber dabei passiert (natürlich) nichts.
wenn ich jetzt aber mit der maus einen eintrag nach unten gehe, soll quasi die gleiche funktion aufgerufen werden, als wenn ich den eintrag mit der linken maus anklicke.
folgende sachen habe ich schon probiert, es kommt aber keine reaktion zurück, wenn ich hoch/runter/enter drücke:
Case $NM_SETFOCUS ; The control has received the input focus
Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
Case $LVN_ITEMACTIVATE ; Sent by a list-view control when the user activates an item
Hiho, habs gelöst.
habe ein teil-script von sandin benommen, der dies im window manager v0.1 genutzt hat.
sieht dann so aus:
GUISetState(@SW_DISABLE)
Local $position = WinGetPos($Form1_1)
Local $trans_text1 = _TransparentTextWindow("MyTextGUI", "HTML-Export", $position[2]/1.16, $position[2]/8, 1, 1, $font, 400, 0x003366, 1, -1, -1, 1, False)
Local $position2 = WinGetPos($trans_text1)
WinMove($trans_text1, "", $position[0]+$position[2]/2-$position2[2]/2, $position[1]+$position[3]/2-$position2[3]/2)
;~ WinSetTrans($trans_text1, "", 180)
;WinSetOnTop($trans_text1, "", 1)
Local $transss = 254
for $i = 1 to 10
$transss-=10
WinSetTrans($Form1_1, "", $transss)
Next
DllCall($dll, "int", "AnimateWindow", "hwnd", $trans_text1, "int", 300, "long", 0x00080000);fade-in
GUISetState(@SW_SHOW, $trans_text1)
WinSetOnTop($trans_text1, "", 0)
$file = StringTrimRight(GUICtrlRead($Input3), 7) & ".html"
FileDelete($file)
_FileCreate($file)
FileOpen($file, 1)
$GuiRead = GUICtrlRead($Checkbox1)
If $GuiRead = 1 Then
$Rows = _GUICtrlListView_GetItemCount($List1)
For $i = 1 To $Rows
FileWrite($file, _GUICtrlListView_GetItemText($List1, $i, 1) & '<br>')
Next
Else
FileWrite($file, '<A NAME="Index">Index</A> <br><br>')
FileWrite($file, '<A HREF="#0-9">0-9</A> <A HREF="#A">A</A> <A HREF="#B">B</A> <A HREF="#C">C</A> <A HREF="#D">D</A> <A HREF="#E">E</A> <A HREF="#F">F</A> <A HREF="#G">G</A> <A HREF="#H">H</A> <A HREF="#I">I</A> <A HREF="#J">J</A> <A HREF="#K">K</A> <A HREF="#L">L</A> <A HREF="#M">M</A> <A HREF="#N">N</A> <A HREF="#O">O</A> <A HREF="#P">P</A> <A HREF="#Q">Q</A> <A HREF="#R">R</A> <A HREF="#S">S</A> <A HREF="#T">T</A> <A HREF="#U">U</A> <A HREF="#V">V</A> <A HREF="#W">W</A> <A HREF="#X">X</A> <A HREF="#Y">Y</A> <A HREF="#Z">Z</A> <br><br>')
FileWrite($file, '<A NAME="0-9">0-9</A><br><br>')
_SQLite_Exec(-1,"Select Title From DB Where substr (Title,1,1) between '0' and '9' Order by Title", "_InsertHTML"); like '0%' or Title like '1%' or Title like '2%' or Title like '3%' or Title like '4%' or Title like '5%' or Title like '6%' or Title like '7%' or Title like '8%' or Title like '9%' Order by Title", "_InsertHTML")
For $i = Asc("A") To Asc("Z")
FileWrite($file, '<BLOCKQUOTE><A HREF="#Index">back</A></BLOCKQUOTE> <A NAME="' & Chr($i) & '">' & Chr($i) & '</A><br><br>')
_SQLite_Exec(-1,"Select Title From DB Where Title like '" & Chr($i) & "%' Order by Title", "_InsertHTML")
Next
FileWrite($file, '<BLOCKQUOTE><A HREF="#Index">back</A></BLOCKQUOTE><br><br>')
_SQLite_Exec(-1,"Select rowid, * From DB Order by Title", "_InsertHTML2")
EndIf
ShellExecute($file)
DllCall($dll, "int", "AnimateWindow", "hwnd", $trans_text1, "int", 300, "long", 0x00090000);fade-out
GUIDelete($trans_text1)
for $i = 1 to 10
$transss+=10
WinSetTrans($Form1_1, "", $transss)
Next
GUISetState(@SW_ENABLE)
Func _TransparentTextWindow($h_WinTitle, $s_WinText, $i_WinWidth, $i_WinHeight, $i_WinXPosn = -1, $i_WinYPosn = -1, _
$s_TextFont = -1, $i_FontWeight = -1, $v_FontColor = -1, $i_FontItalics = 0, $i_FontUnderline = 0, $i_FontStrikeOut = 0, $i_Taskbar = 0, $i_WinExist = False, $i_hwnd = 0)
Local Const $DEFAULT_CHARSET = 0 ; ANSI character set
Local Const $OUT_CHARACTER_PRECIS = 2
Local Const $CLIP_DEFAULT_PRECIS = 0
Local Const $PROOF_QUALITY = 2
Local Const $FIXED_PITCH = 1
Local Const $RGN_XOR = 3
If $h_WinTitle = "" Then $h_WinTitle = "Notice"
If $s_WinText = "" Then $s_WinText = "Error"
If $i_WinWidth < 1 Or $i_WinWidth > @DesktopWidth Then SetError(1)
If $i_WinHeight < 1 Or $i_WinHeight > @DesktopHeight Then SetError(1)
If $i_WinXPosn = -1 Then $i_WinXPosn = (@DesktopWidth / 2) - ($i_WinWidth / 2)
If $i_WinYPosn = -1 Then $i_WinYPosn = (@DesktopHeight / 2) - ($i_WinHeight / 2)
If $i_WinXPosn < 1 Or $i_WinXPosn > (@DesktopWidth - $i_WinWidth) Then SetError(1)
If $i_WinYPosn < 1 Or $i_WinYPosn > (@DesktopHeight - $i_WinHeight) Then SetError(1)
If @error Then Return
If $s_TextFont = "" Or $s_TextFont = -1 Then $s_TextFont = "Microsoft Sans Serif"
If $i_FontWeight = "" Or $i_FontWeight = -1 Then $i_FontWeight = 450
If $v_FontColor = "" Or $v_FontColor = -1 Then $v_FontColor = "0xFF0000"
If $i_FontItalics <> 1 Then $i_FontItalics = 0
If $i_FontUnderline <> 1 Then $i_FontUnderline = 0
If $i_FontStrikeOut <> 1 Then $i_FontStrikeOut = 0
If $i_Taskbar <> 1 Then
if $i_WinExist = False Then
Local $h_GUI = GUICreate($h_WinTitle, $i_WinWidth, $i_WinHeight, $i_WinXPosn, _
$i_WinYPosn, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), $Form1_1)
Else
Local $h_GUI = WinGetHandle($i_hwnd)
EndIf
Else ; hide tray icon
if $i_WinExist = False Then
Local $h_GUI = GUICreate($h_WinTitle, $i_WinWidth, $i_WinHeight, $i_WinXPosn, _
$i_WinYPosn, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), $Form1_1)
Else
Local $h_GUI = WinGetHandle($i_hwnd)
EndIf
EndIf
GUISetBkColor($v_FontColor)
Local $hDC = DllCall($dll, "int", "GetDC", "hwnd", $h_GUI)
Local $hMyFont = DllCall("gdi32.dll", "hwnd", "CreateFont", "int", $i_WinHeight, _
"int", 0, "int", 0, "int", 0, "int", $i_FontWeight, "int", $i_FontItalics, _
"int", $i_FontUnderline, "int", $i_FontStrikeOut, "int", $DEFAULT_CHARSET, _
"int", $OUT_CHARACTER_PRECIS, "int", $CLIP_DEFAULT_PRECIS, _
"int", $PROOF_QUALITY, "int", $FIXED_PITCH, "str", $s_TextFont)
Local $hOldFont = DllCall("gdi32.dll", "hwnd", "SelectObject", "int", $hDC[0], _
"hwnd", $hMyFont[0])
DllCall("gdi32.dll", "int", "BeginPath", "int", $hDC[0])
DllCall("gdi32.dll", "int", "TextOut", "int", $hDC[0], "int", 0, "int", 0, _
"str", $s_WinText, "int", StringLen($s_WinText))
DllCall("gdi32.dll", "int", "EndPath", "int", $hDC[0])
Local $hRgn1 = DllCall("gdi32.dll", "hwnd", "PathToRegion", "int", $hDC[0])
Local $rc = DllStructCreate("int;int;int;int")
DllCall("gdi32.dll", "int", "GetRgnBox", "hwnd", $hRgn1[0], _
"ptr", DllStructGetPtr($rc))
Local $hRgn2 = DllCall("gdi32.dll", "hwnd", "CreateRectRgnIndirect", _
"ptr", DllStructGetPtr($rc))
DllCall("gdi32.dll", "int", "CombineRgn", "hwnd", $hRgn2[0], "hwnd", $hRgn2[0], _
"hwnd", $hRgn1[0], "int", $RGN_XOR)
DllCall("gdi32.dll", "int", "DeleteObject", "hwnd", $hRgn1[0])
DllCall($dll, "int", "ReleaseDC", "hwnd", $h_GUI, "int", $hDC[0])
DllCall($dll, "int", "SetWindowRgn", "hwnd", $h_GUI, "hwnd", $hRgn2[0], "int", 1)
DllCall("", "int", "SelectObject", "int", $hDC[0], "hwnd", $hOldFont[0])
Return $h_GUI
EndFunc
Hallo,
da ich kein antivir habe, kann ich dazu nix sagen, aber bei mcaffee habe ich das prob, dass wenn ich ein script "obfuscate", es dann als virus erkannt wird.
kann man da irgendwas dran machen?
