Ich denke mal das reicht hier oder 
Beiträge von ProblemUser
-
-
Ah ok, verstehe.
Vielen Dank ich wär da glaube ich nie Drauf gekommen
Zwar ist dein Code noch etwas falsch, aber ich habs ja verstanden was du meinst und habs gelöst.
Wer das selbe Problem hat und ab hier nicht mehr weiter kommt soll einfach mal
Run("brain.exe") Versuchen
Wehe jemand schreibt:ZitatWo finde ich Brain.exe?
-
Hallo, ich mache gerade einen BBCode generator.
[autoit]
Ja, ich weiß ich hätte es mit Arrays mache können vorerst möchte ich es aber mir Variablen machen!
[/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("Form1", 637, 356, 194, 124)
[/autoit][autoit][/autoit][autoit]
$Input1 = GUICtrlCreateInput("", 120, 80, 457, 21)
$Input2 = GUICtrlCreateInput("", 120, 120, 457, 21)
$Button3 = GUICtrlCreateButton("BB-Code aimg= left", 14, 251, 265, 33)
GUISetState(@SW_SHOW)$Link = GUICtrlRead($Input2) ; Hier ist der Link, der zu der Internetseite führt
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$URL = GUICtrlRead($Input1) ; Hier ist der Link, auf dem der Banner ist
$left = "[aimg=left]" ; Hier wird das Bild Links angezeigt
$right = "[aimg=right]" ; Hier wird das Bild Rechts angezeigt
$aimg = "[/aimg]" ; Hier wird der AIMG Tag geschlossen
$BB3 = $left & $URL & $aimg ; Hier wird das Bild Links zentriert zusammengefügt
$urlend = "]" ; Hier wird der URLTag GESCHLOSSEN
$urltag = "[url=" & $Link & $urlend ; hier wird der URLTag begonnen
$urlende = "[/url]" ; Hier wird der komplette URLTag geschlossen
$BB3zs = $urltag & $BB3 & $urlende ; Hier wird der BBCode zusammengefügtWhile 1
[/autoit][autoit][/autoit][autoit][/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
MsgBox(64, "Ausgabe Aimg LEFT", $BB3zs)
Case $Form1
EndSwitch
WEndFunktioniert eig. auch, nur das Problem ist die Inputbox wird nicht Ausgelesen!
-
Hier kommt nun die Sea Edition raus, die Spezial für die See ausgelegt ist. Also sehr hilfreich für Segler etc.
Falls bei euch nur eine Leere Seite kommt öffnet die Datei "seastart.html" mit dem Internet Explorer und erlaubt alle Rechte. -
In der Tat, war mein Fehler ich hab zu Test zwecken einiges gelöscht, was ich vergessen habe wieder einzufügen.
Nun ist alles noch in Regionen Unterteilt, damit auch jeder weiß wo was gemacht wird.
BTW: Ich suche Leute die mit helfen wollen! -
Hallo,
ich hab immer wieder Termine. Ich benutzte immer einen Timer, aber ich möchte da was anderes.
Undzwar:
Ich stelle ein Datum + Uhrzeit ein + einen Kleinen Text.
Dann soll 15 Min vor dem Termin, den ich eingestellt habe, der Text in einer msgBox erscheinen Welche 2 Buttons hat. Einen mit "Bestätigen" und einen mit "Abbrechen" Drückt man nichts, so soll alle 10 Minuten wieder der eine msgBox erscheinen mit dem Text und ein kleinen System Beep erzeugen.
Das war schon alles! -
DOWNLOAD
Der Source liegt zwar dabei, aber es wurde in der SB erwünscht. Auch wenn euch der Source wenig Bringt.Source
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>$IE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]
Global $html
Local $sFileName = "start.html"
Local $1FileName = "seastart.html"
Local $nBytesRead = @extended
Dim $adr, $stre, $plz, $stadt, $aland
$url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr
$url1 = "&street=" & $stre
$url2 = "&zip=" & $plz
$url3 = "&state=" & $stadt
$url4 = "&country=" & $aland
$url = $url0 & $url1 & $url2 & $url3 & $url4
$map = 100Local $nBytesRead = @extended
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$INI = @ScriptDir & "\Data\Einstellungen.ini"
$Postleitzahl = IniRead($INI, "PLZ", "Wert", "")
$iSTADT = IniRead($INI, "CITY", "Wert", "")If $Postleitzahl = "1337" Then
[/autoit] [autoit][/autoit] [autoit]
$Postleitzahl = InputBox("Ihre Postleitzahl", "Da Sie das Programm zum ersten mal starten, sind Sie aufgefordert Ihre Postleitzahl zu schreiben." & @CRLF & @CRLF & "So wird das Programm ihr Persöhnliches Wetter herraus finden und ihren Ort anzeigen!" & @CRLF & @CRLF & "Viel Spaß " & @CRLF, "Ihre Postleitzahl", " ", "350", "260", "-1", "-1")
$states = "&state=" & $Postleitzahl
EndIfIf $iSTADT = "1337" Then
[/autoit] [autoit][/autoit] [autoit]
$iSTADT = InputBox("Ihren Wohnort", "Da Sie das Programm zum ersten mal starten, sind Sie aufgefordert Ihren Wohnort zu schreiben." & @CRLF & @CRLF & "So wird das Programm ihr Persöhnliches Wetter herraus finden und ihren Ort anzeigen!" & @CRLF & @CRLF & "Viel Spaß " & @CRLF, "Ihren Wohnort", " ", "350", "260", "-1", "-1")
EndIf$wURL = "http://www.google.com/ig/api?weather=" & $iSTADT & "&hl=de"
[/autoit] [autoit][/autoit] [autoit]
IniWrite($INI, "PLZ", "Wert", $Postleitzahl)
IniWrite($INI, "CITY", "Wert", $iSTADT)$Form1 = GUICreate("Open World Browser by Simon K. - EUROS4YOU.COM", 1204, 836, 118, 112)
[/autoit] [autoit][/autoit] [autoit]
$Pic1 = GUICtrlCreateObj($IE, 0, 136, 1201, 697)
$city = GUICtrlCreateInput("", 16, 24, 201, 21)
$street = GUICtrlCreateInput("", 16, 48, 201, 21)
$num = GUICtrlCreateInput("", 224, 48, 57, 21)
$zip = GUICtrlCreateInput("", 288, 48, 65, 21)
$Group1 = GUICtrlCreateGroup("Stadt, Straße, Hausnummer, Postleitzahl", 8, 8, 361, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Land", 376, 8, 241, 73)
$land = GUICtrlCreateInput("", 384, 24, 225, 21)
$search = GUICtrlCreateButton("Suche", 384, 48, 227, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Zum Mond //Geht nicht", 664, 8, 529, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zur Welt", 664, 38, 529, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Zur See Karte", 664, 67, 529, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Route erstellen //Geht nicht", 664, 96, 529, 25, $WS_GROUP)
$einstellungen = GUICtrlCreateMenu("Einstellungen")
$eoeffnen = GUICtrlCreateMenuItem("Einstellungen Öffnen", $einstellungen)
$Extras = GUICtrlCreateMenu("Extras")
$Extraswetter = GUICtrlCreateMenuItem("Wetter", $Extras)
$lern = GUICtrlCreateMenu("Lernen")
$lVideos = GUICtrlCreateMenuItem("Videos", $lern)
$help = GUICtrlCreateMenu("Hilfe")
$hHelp = GUICtrlCreateMenuItem("Hilfe", $help)
$hAbout = GUICtrlCreateMenuItem("About/Über", $help)
GUISetState(@SW_SHOW)
_Wohnort()
_IENavigate($IE, @ScriptDir & "/start.html")While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
$map = 100
_IENavigate($IE, @ScriptDir & "/start.html")
Case $Button3
$map = 10
_IENavigate($IE, @ScriptDir & "/seastart.html")
Case $search
If $map = 10 Then
$func = _Sea()
Else
$func = _World()
EndIf
Case $hAbout
$about = FileOpen("about.owb", 0)
$aabout = FileRead($about)
FileClose($about)
MsgBox(64, "Über OpenWorldBrowser", $aabout)
Case $hHelp
MsgBox(0, "Hilfe", "Derzeit ist die Hilfe noch nicht geschrieben!")
Case $Extraswetter
_Weather()
Case $lVideos
_Videos()
EndSwitch
WEnd
Func _World()
$stre = GUICtrlRead($street)
$plz = GUICtrlRead($zip)
$stadt = GUICtrlRead($city)
$aland = GUICtrlRead($land)
$url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr
$url1 = "&street=" & $stre
$url2 = "&zip=" & $plz
$url3 = "&state=" & $stadt
$url4 = "&country=" & $aland
$url = $url0 & $url1 & $url2 & $url3 & $url4
$oData = InetRead($url)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!1")
Exit
EndIf$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!2")
Exit
EndIf
ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF)$hFile = FileOpen($sFileName, 0)
[/autoit] [autoit][/autoit] [autoit]
$sText = FileRead($hFile)
FileClose($hFile)
$Lon = _StringBetween($sText, "var lon =", ";")
If IsArray($Lon) Then
$Lon = $Lon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf$Lat = _StringBetween($sText, "var lat =", ";")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!4")
Exit
EndIf$Zoom = _StringBetween($sText, "var zoom = ", ";")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf
If Not $aland = 0 Then
$sZoom = 5
Else
$sZoom = 7
EndIfIf Not $stadt = 0 Then
[/autoit] [autoit][/autoit] [autoit]
$sZoom = 10
Else
$sZoom = 7
EndIf$sText = StringReplace($sText, $Zoom, $sZoom)
[/autoit] [autoit][/autoit] [autoit]
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($sFileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
_IENavigate($IE, @ScriptDir & "/start.html")
EndFunc ;==>_World
Func _Sea()
$stre = GUICtrlRead($street)
$plz = GUICtrlRead($zip)
$stadt = GUICtrlRead($city)
$aland = GUICtrlRead($land)
$url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr
$url1 = "&street=" & $stre
$url2 = "&zip=" & $plz
$url3 = "&state=" & $stadt
$url4 = "&country=" & $aland
$url = $url0 & $url1 & $url2 & $url3 & $url4
$oData = InetRead($url)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!1")
Exit
EndIf$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!2")
Exit
EndIf
ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF)$hFile = FileOpen($1FileName, 0)
[/autoit] [autoit][/autoit] [autoit]
$sText = FileRead($hFile)
FileClose($hFile)
$Lon = _StringBetween($sText, "var lon =", ";")
If IsArray($Lon) Then
$Lon = $Lon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf$Lat = _StringBetween($sText, "var lat =", ";")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!4")
Exit
EndIf$Zoom = _StringBetween($sText, "var zoom = ", ";")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf
If Not $aland = 0 Then
$sZoom = 5
Else
$sZoom = 7
EndIfIf Not $stadt = 0 Then
[/autoit] [autoit][/autoit] [autoit]
$sZoom = 10
Else
$sZoom = 7
EndIf$sText = StringReplace($sText, $Zoom, $sZoom)
[/autoit] [autoit][/autoit] [autoit]
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($1FileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
_IENavigate($IE, @ScriptDir & "/seastart.html")
EndFunc ;==>_Sea
Func _Weather()
$WetterForm = GUICreate("Wetter", 201, 90, 188, 124)
$Label1 = GUICtrlCreateLabel("", 16, 16, 178, 17)
$Label2 = GUICtrlCreateLabel("", 16, 40, 178, 17)
$Label3 = GUICtrlCreateLabel("", 16, 64, 178, 17)
$Group1 = GUICtrlCreateGroup("Wetter", 6, 0, 193, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $WetterForm)
$oData = InetRead($wURL)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$ctData = _StringBetween($sData, '<condition data="', '"/>')
$temp_c = _StringBetween($sData, '<temp_c data="', '"/>')
$vluft = _StringBetween($sData, '<humidity data="', '"/>')
If IsArray($ctData) Then
$ctData = $ctData[0]
Else
MsgBox(0, "Fehler", "Das Programm konnte kein Wetter feststellen! Prüfen sie ihre Internet Verbuíndung!")
GUISetState(@SW_HIDE, $WetterForm)
EndIf
$ctDat = "Aktuell:" & $ctData
GUICtrlSetData($Label1, $ctDat)
If IsArray($temp_c) Then
$temp_c = $temp_c[0]
Else
MsgBox(0, "Fehler", "Das Programm konnte kein Wetter feststellen! Prüfen sie ihre Internet Verbuíndung!")
GUISetState(@SW_HIDE, $WetterForm)
EndIf
$temp = "Temperatur:" & $temp_c
GUICtrlSetData($Label2, $temp)
If IsArray($vluft) Then
$vluft = $vluft[0]
Else
MsgBox(0, "Fehler", "Das Programm konnte kein Wetter feststellen! Prüfen sie ihre Internet Verbuíndung!")
GUISetState(@SW_HIDE, $WetterForm)
EndIf
$luft = "Luft-" & $vluft
GUICtrlSetData($Label3, $luft)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $WetterForm)
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_Weather
Func _Wohnort()
$states = "&state=" & $iSTADT
$urlort = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&city=" & $iSTADT & $states
$oData = InetRead($urlort)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF)$hFile = FileOpen($sFileName, 0)
[/autoit] [autoit][/autoit] [autoit]
$sText = FileRead($hFile)
FileClose($hFile)
$Lon = _StringBetween($sText, "var lon =", ";")
If IsArray($Lon) Then
$Lon = $Lon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf$Lat = _StringBetween($sText, "var lat =", ";")
[/autoit] [autoit][/autoit] [autoit]
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$Zoom = _StringBetween($sText, "var zoom = ", ";")
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$sZoom = 10
$sText = StringReplace($sText, $Zoom, $sZoom)
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($sFileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
EndFunc ;==>_Wohnort
Func _Videos()
MsgBox(0, "Fehler", "Derzeit gibt es noch Probleme mit dem Abspielen von Videos!")
#cs
$VideoGUI = GUICreate("Videos", 240, 153, 194, 121)
$vGroup = GUICtrlCreateGroup("Videos", 8, 0, 225, 145)
$vCombo = GUICtrlCreateCombo("", 16, 16, 211, 25)
GUICtrlSetData(-1, "Erste Mondlandung", "Erste Mondlandung")
$vButton = GUICtrlCreateButton("Anschauen", 16, 40, 211, 97, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $VideoGUI)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $VideoGUI)
ExitLoop
Case $vButton
$Combo = GUICtrlRead($vCombo)
If $Combo = "Erste Mondlandung" Then _1stLanding()
GUISetState(@SW_HIDE, $VideoGUI)
EndSwitch
WEnd
#ce
EndFunc ;==>_Videos
Func _1stLanding()
MsgBox(0, "Fehler", "Derzeit gibt es noch Probleme mit dem Abspielen von Videos!")
#cs
Global $VideoGUI
$1Land = GUICreate("Neil Armstrong Landing", 511, 343, -2, 0)
$1Group = GUICtrlCreateGroup("Play Video", 8, 0, 497, 337)
$1Neil = GUICtrlCreateAvi(@ScriptDir & "/Data/Videos/1land.avi", -1, 16, 16, 480, 272)
$1Play = GUICtrlCreateButton("Play", 16, 296, 233, 33, $WS_GROUP)
$1Stop = GUICtrlCreateButton("Stop", 264, 296, 233, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $1Land)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $1Land)
_Videos()
ExitLoop
Case $1Play
GUICtrlSetState($1Neil, 1)
Case $1Stop
GUICtrlSetState($1Neil, 0)
EndSwitch
WEnd
#ce
EndFunc ;==>_1stLandingScreenshot
[Blockierte Grafik: http://www.imagebanana.com/img/dok25g5d/OWBScreen.PNG]
Hallo, hier stelle ich mein erstes Projekt vor, das eigentlich kaum etwas macht.
Ich hatte die Funktion für ein anderes Projekt gebraucht und hab mir nun gedacht mach ich mal eins öffentlich.Was macht dieses Script?
Es ist eine minimal nachbildung von Google Earth. Derzeit ist jedoch nur ein kleines HTML Script.
Was wird benötigt?
tom.js
start.html
world.au3 oder world.exe
ie_map.css
map.css
abou.owb
seastart.htmlDas Programm ist Open Source genauso wie die Karten Daten.
Jeder darf das Script frei verändern wenn er das Copyright nicht entfernt!
Die Kartendaten sind von der Freien Wiki Weltkarte "OpenStreetMap"Ich arbeite bereits an einer Version 1.1 Die beinhaltet das anspringen von Orten etc.
Kritik ist erwünscht. Wer unzufrieden mit dem Script ist ändert es, es ist Open Source!
Version 1.1 ist nun draußen!
Nun gibt es die möglichkeit nach Orten zu suchen. Die Api habe ich nun doch öffentlich gemacht
man kann mit dem Key auch keinen Unfug machen. Den APIKey habe ich aus einem Example von Yahoo!
Bekannte Bugs:
Ländersuche ist nicht möglich! -
Du kannst 2 Exen zu einer machen -.-
Gib dazu einfach im ausführen dialog, "iexpress" ein.
Natürlich ist das nicht die beste Methode.
Ich würd dann in Autoit ein File erstellen. Dann in dem anderen script überprüfen ob das File gibt und dann die Wile ausführen -
Hallo, ich habe eine Frage (mal wieder)
Ich möchte gern wissen, wie ich eine Datei analysieren kann. Mir ist bewusst wie mein einen Trojaner aufspürt und testet, ob es einer ist. Jetzt wenn ich einen Virus habe, z.b. den EICAR-Testvirus wie kann ich den erkennen? Ich möchte kein Antiviren Programm in Autoit schreiben, das ist meiner Meinung nach völlig unmöglich. Aber es muss doch irgendwie eine Möglichkeit geben, zu erfahren ob diese Datei die EICAR Testdatei ist oder nicht. Ich hab da an den MD5 Hash gedacht, aber das kann man ja relativ leicht verfälschen. Habt ihr da eine Idee? -
Hallo,
ich habe ein Problem, ich verstehe leider nicht ganz was ich machen soll.
Ich habe eine Seite (meine Eigene, möchte ich jetzt hier nicht sagen)
Dort habe ich ein Steckbrief von mir & meinen Freunden. Ich habe nun ein kleines Programm Geschrieben, das Daten aus einer *.txt ausliest und anzeigt, funktioniert auch Prima!
Jetzt möchte ich aber Den Steckbrief auslesen und den Inhalt in eine TXT schreiben.
Der Syntax meines HTML Quelltextes:Code<a href="/freunde/vorname/XXX/">XXX</a> <a href="/freunde/nachname/XXX">XXX</a>
[autoit]
Jetzt soll Der Vorname und der Nachname ausgelesen Werden.
Ich dachte da an sowas:
[/autoit]
$mask = '<a href="/freunde/vorname/(.*)">(.*)</a>'
$name = StringRegExp($string, $mask, 3)
Aber das funktioniert leider nicht
Kann mir da einer Helfen? -
Das meinte ich eigentlich nicht, ich dachte da eher das man im Bild sich nach irgendwelchen Seiten bewegt, nicht das Bild in der GUI.
Wie bei maps.google.de, da ist das "Bild" ja auch fix. -
Pfad(62,31) : WARNING: $socket: possibly used before declaration.
TCPCloseSocket($socket)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Pfad(62,31) : ERROR: $socket: undeclared global variable.
TCPCloseSocket($socket)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Pfad - 1 error(s), 1 warning(s)Wär auch nett wenns funnktioniert, mein Code ist dieser:
[autoit]$hImage = _GDIPlus_ImageLoadFromInet( $GUI_url, "/favicon.ico")
[/autoit]
$Pic1 = GUICtrlCreatePic($hImage, 56, 8, 17, 17, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) -
Es soll immer nur ein Teil angezeigt werden, ansonsten, hätte ich es mit WinMove gemacht und das Bild asl Hintergrund benutzt.
-
Hallo, ich hab noch eine Frage, auch dazu finde ich nichts in der Hilfe und bei Google auch nicht das richtige.
[autoit]
Die Frage:
Ich hab dieses Script:
[/autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 653, 426, 192, 124)
$Pic1 = GUICtrlCreatePic("PFADZUMBILD", -8, 0, 657, 401, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Slider1 = GUICtrlCreateSlider(0, 400, 305, 25)
$Button1 = GUICtrlCreateButton("Oben", 304, 400, 97, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Unten", 400, 400, 91, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Links", 488, 400, 83, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Rechts", 568, 400, 83, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Nun möchte Ich wissen, wenn ich auf einen Button klicke, das er weiter nach "Links/Rechts/etc" geht.
Weiß jetzt nicht genau wie ich das erklären soll, ich hoffe ihr versteht was ich meine.Edit: Ungefähr so wie auf http://maps.google.de/
-
Ja, das hab ich jetzt auf die schnelle Vergessen
Aber, das war ja nicht das Problem -
Danke ging ja mal schnell diesmal
-
Hallo, ich hab da eine Frage, ich erstelle ein "Googler". Was macht dieser:
[autoit]
Es erscheint eine MsgBox in der etwas steht z.b. : Was ist ein Baum. Nun geht jemand auf Google, und sucht nach Baum. Findet der User etwas, kopiert er es. Der Bot bekommt nun mit dem Befehl:
[/autoit]
$answer = ClipGet()
[autoit]
Die Antwort. Nun soll er überprüfen ob es richtig ist. Ich hätte es so gemacht:If $answer = "Ein Baum ist eine Pflanze" then
[/autoit]
$points = +1
EndIfJedoch kann die Antwort ja auch anders sein, aber dennoch richtig. Wie mach ich es, das er sobald ein Wort oder 2 enthalten sind, den Punkte Counter nach oben schiebt.
Für alle nochmal:
Wie überprüfe ich ob ein Wort oder mehrere in einer Variable enthalten sind? -
Jetzt versteh ichgarnichts mehr....
Die Farbe wird gefunden, eine MSGOx kommt und STRG + Tab geht auch. In meinem Script jedoch nicht.
Muss wohl weiter testen -
Ich hab noch ene Frage:
[autoit]
Undzwar: Ich hab jetzt
[/autoit]
$Coord = PixelSearch(231, 100, 418, 182, $Orange, 10)
If Not @error Then
Send("^{TAB}")
EndIf
Dann müsste doch wenn die Farbe $Orange (die vorher Deklariert wurde) gefunden wird den Befehl STRG + Tab senden. Aber das Tut es nicht! -
Hmm, ok ich dachte immer man sollte alles in Schleifen packen und diese beenden aber nun geht es