Beiträge von DeepRed92

DeepRed92

Dein Script gefällt mir . Allerdings könnte man es visuel besser gestalten. Außerdem kam bei mir einmal ein Error:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

DeepRed92

Also das kann man schwer jemanden beibringen. Am besten lernt man es, indem man selber kleinere Scripte erstellt und Probleme löst .

DeepRed92

Zitat

Die Systeme sind komplett getrennt, die XUL-Controls sind keine normalen Windows-Steuerelemente.

Das weiß ich auch. Kann man sowas auch mit AutoIt erstellen lassen?

DeepRed92

Hallo,

kann man mit AutoIt per Java Steuerelemente auf einer AutoIt GUI erstellen? Also wie bei Firefox oder Mozilla Thunderbird.

DeepRed92

Also ich fände das auch gut. Aber hier sollten keine Exe- Files mit C++ erstellt werden, sondern lieber Dlls, weil die kann man ja mit AutoIt nutzen.

DeepRed92

Sry wegen Doppelpost aber wenn du die Progresbar Höhe auf 10 stellst ist der Fehler weg

DeepRed92

Die Ladebalken sind bei mir auch so komisch:

Spoiler anzeigen

[autoit]

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

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

$window_login = GUICreate("AutChat - Login", 410, 138)
$progr_userweb = GUICtrlCreateProgress(48, 27, 129, 9)
$progr_webcomm = GUICtrlCreateProgress(224, 27, 129, 9)
GUISetState(@SW_SHOW)

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

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

[/autoit]

DeepRed92

Sry hab ich dann falsch verstanden :wacko: . Dein Script ist mir leider viel zu kompliziert (soviele Arrays usw...) .
Deswegen hab ich es so versucht:

Spoiler anzeigen

[autoit]

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

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

$Width = 200
$Hight = 200
$Toleranz = 100

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

$hwnd = GUICreate("Dock mich an :D", $Width, $Hight)
GUISetState()

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

While 1
If GUIGetMsg() = -3 Then Exit

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

$Pos = WinGetPos($hwnd)

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

If $Pos[0] < $Toleranz Then WinMove($hwnd, "", 0, $Pos[1])
If $Pos[1] < $Toleranz Then WinMove($hwnd, "", $Pos[0], 0)

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

Sleep(1)
WEnd

[/autoit]

Dies klappt gut soweit, aber ich möchte meinen Gui auch rechts und unten andocken. Weiß jetzt nicht wie ich es machen soll. Ich habs mit @DesktopWidth ausprobiert, aber da ist nichts gescheites herausgekommen.

DeepRed92

Das hab ich schon gesehen, aber das ist nicht das, was ich suche. Also mein GUI soll sich nur am Bildschirmrad (oben + unten + rechts + links + Tray) andockbar sein. Jetzt weiß ich nun nicht genau wie man sowas bewerkstelligen soll. :-/

DeepRed92

Hallo,

weiß jemand wie man eine GUI so machen kann, dass es sich automatisch am Bildschirmrand andockt?
Also das es sozusagen, wenn es 5 Pixel vom Bildschirmrand entfernt ist "angezogen" wird.

DeepRed92

Danke. Jetzt weiß ich aber nicht genau wie ich an die Uhrzeiten rankomme -.- . So hab ich es schon ausprobiert:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Inet.au3>
#include <String.au3>

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

_Get_Time_SWR3()

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

Func _Get_Time_SWR3()
Local $sSource, $aOut, $sBuffer, $timer = 0
Dim $Time[50]
$sSource = _INetGetSource("http://www.swr3.de/musik/musikrecherche/-/id=47424/did=202234/1wuwzys/index.html")

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

$Between = _StringBetween($sSource, "<td>", "</td>")

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

For $NextLoop = 0 To UBound($Between) - 1

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

$Text = $Between[$NextLoop]
$Text = StringReplace($Text, @CR, "")
$Text = StringReplace($Text, @LF, "")
$Text = StringReplace($Text, @TAB, "")

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

If Number(StringRight($Text, 1)) Then
MsgBox(0, "", $Text)
EndIf
Next
EndFunc ;==>_Get_Playlist_swr3

[/autoit]

DeepRed92

Ist doch da weiter unten. Diese werden ja auch von anderen Programmen genutzt.

DeepRed92

Villt hier irgendwo:

http://dnl-13.geo.kaspersky.com/

DeepRed92

Keine Ahnung, aber ich denke mal, dass das sowas wie ein Hashwert ist :).

DeepRed92

Es gibt doch da immer eine Virensignatur oder nicht?

DeepRed92

Schau mal hier:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIEdit.au3>
#include <TOC.au3>
#include <Misc.au3>
#include <WINDOWSConstants.au3>
#include <Buttonconstants.au3>
#include <guiedit.au3>

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

Global $myUser = "youruin"
Global $myPass = ""
Global $targetUser = "otheruin"

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

Global $doQuit = false

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

$login = _TocLogin( $myUser, $myPass)
if not $login Then
if @error == $TOC_ERROR Then
_DebugPrint( "TOC Error: code " & $login )
Else
_DebugPrint( "_TocLogin @error = " & @error )
EndIf
Else
_DebugPrint( "Logged in successfully" )
EndIf

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

_TocRegisterFunc( $TOC_CMD_IMRECV, "HandleRecv" )
_TocInitLoop()

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

;~ _TocSendIM($targetUser, "This is a test")
;~ _TocSendIM($targetUser, "haha auto response", true)

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

$GUI = GUICreate("AIM TOC", 299, 353)
$Input = GUICtrlCreateInput("", 0, 306, 299, 21)
$History = GUICtrlCreateEdit("", 0, 0, 299, 305, BitOR($WS_VSCROLL, $ES_READONLY, $ES_AUTOVSCROLL))
$Button = GUICtrlCreateButton ("Send", 5, 330, 289, Default, $BS_DEFPUSHBUTTON)
GUISetState(@SW_SHOW)

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

Do
$guimsg = GUIGetMsg ()
Switch $guimsg
Case $Button
If GUICtrlRead ($Input) <> "" Then
_TocSendIM ($targetUser, GUICtrlRead($Input))
GUICtrlSetData ($History, GUICtrlRead($History)&@CRLF&"You: "&GUICtrlRead($Input)&@CRLF)
_GUICtrlEdit_LineScroll ($History, 0, _GUICtrlEdit_GetLineCount($History))

GUICtrlSetData ($Input, "")
EndIf
Case $GUI_EVENT_CLOSE
$doQuit = True
EndSwitch
Until $doQuit

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

Func HandleRecv($packet)
_DebugPrint("Recieved message: " & $packet)
$msg = _TocParseIm( $packet )

;~ MsgBox(0,"_TocLib Test", "("&$msg[0]&") said: " & $msg[3], 2)

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

;~ _ArrayDisplay ($msg, "message")

;~ if StringInStr($msg[3], "goodbye") Then $doQuit = true
$from = $msg[0]
$message = _StringStripHtml ($msg[3])
;~ MsgBox (0, "", $msg[3])
;~ MsgBox (0, "", $message)
GUICtrlSetData ($History, GUICtrlRead($History)&@CRLF&$from&": "&$message&@CRLF)
_GUICtrlEdit_LineScroll ($History, 0, _GUICtrlEdit_GetLineCount($History))

EndFunc

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

Func _StringStripHtml ($s)
Return StringRegExpReplace ($s, "<[^<>]+>", "")
EndFunc

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

Func _StringNum($sStr1, $sStr2)
For $i = 1 to StringLen($sStr1)
If not StringInStr($sStr1, $sStr2, 1, $i) Then ExitLoop
Next
Return $i
EndFunc

[/autoit]

DeepRed92

Zitat

du brauchst nur den Interpreten Titel und Zeit?

Ja .

Zitat

Und der Link bleibt auch immer der gleiche?

Denk ich mal .

DeepRed92

Hi MehmeX,

so jetzt funktioniert es aber :
_____________________________________________

Neuer Downloadlink hinzugefügt. Siehe Post 1 :).

_____________________________________________

DeepRed92

Ich hab mal deinen Beispiel benutzt. Aber es taucht nur eine GUI ohne Inhalt auf .

Edit: Es lag an der Zeile 22. Da steht _RMC_LoadDLL("..\rmchart.dll") statt _RMC_LoadDLL("rmchart.dll")

DeepRed92

Hallo,

ich versuche schon die ganze Zeit die Interpreten, Titel und die Zeit aus einer Seite auszulesen. Hier mein bisheriger Code:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <Inet.au3>

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

Global $Schritte = 0

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

$FRead = _INetGetSource("http://www.swr3.de/musik/musikrecherche/-/id=47424/did=202234/1wuwzys/index.html")

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

$SBetween = _StringBetween($FRead, '<a href="http://www.swr3.de/musik/poplexikon/-/id=', '</a>')

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

$GetArray = UBound($SBetween)

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

Dim $Array[$GetArray + 10]
Dim $Array2[13 + 10]
Dim $Array3[13 + 10]

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

For $NextLoop = 0 To $GetArray - 1
$Split = StringSplit($SBetween[$NextLoop], ">")
$Array[$NextLoop] = $Split[2]
Next

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

$Array2[0] = $Array[0] & "---" & $Array[0 + 1]
$Array2[1] = $Array[2] & "---" & $Array[0 + 3]
$Array2[2] = $Array[4] & "---" & $Array[0 + 5]
$Array2[3] = $Array[6] & "---" & $Array[0 + 7]

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

For $NextLoop = 0 To 12
$Array2[$NextLoop] = $Array[$Schritte] & "---" & $Array[$Schritte + 1]
$Schritte += 2
Next

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

For $NextLoop = 0 To 12
$Filter = StringReplace($Array2[$NextLoop], "Â", "")
$Filter = StringReplace($Filter, "Ã¶", "ö")
$Filter = StringReplace($Filter, "Ã¼", "ü")
$Array3[$NextLoop] = $Filter
Next

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

_ArrayDisplay($Array3)

[/autoit]

Hat jemand eine bessere Idee?

Beiträge von DeepRed92

RunIt (Program-Launcher)

Programmier-Logik erlangen

Javaoberfläche unter AutoIt

Javaoberfläche unter AutoIt

C++ bereich

AutChat - Chat für Autoit'ler

AutChat - Chat für Autoit'ler

Andockbare GUI

Andockbare GUI

Andockbare GUI

Informationen aus HTML lesen

Theoriefrage : AntiVirus

Theoriefrage : AntiVirus

Theoriefrage : AntiVirus

Theoriefrage : AntiVirus

ICQ Client in autoit

Informationen aus HTML lesen

Desktop Radio 3.9

RMC_Smart UDF ( Säulendiagramme )

Informationen aus HTML lesen