AutoIt in VB2008? :D

Mal kurze Erklärung:
ich habe mit VB2008 (Visual Basic 2008) angefangen, und merke aber doch des öfteren dass mir die typischen AutoIt-Befehle fehlen
Beispiel: Sowas wie _StringBetween() (na gut eine UDF, aber trotzdem ) gibts da erstmal nicht, das muss man sich erst schreiben
Jetzt hatte ich eine irrwitzige Idee, und zwar die ganzen AutoIt-Befehle in VB2008 nachzuprogrammieren
Also, um das vorherige Beispiel aufzugreifen, würde ich praktisch diese Funktion schreiben:

Public Function _StringBetween(ByVal first As String, ByVal last As String, ByVal total As String) As String
        If last.Length < 1 Then
            _StringBetween = total.Substring(total.IndexOf(first))
        End If
        If first.Length < 1 Then
            _StringBetween = total.Substring(0, (total.IndexOf(last)))
        End If
        Try
            _StringBetween = ((total.Substring(total.IndexOf(first), (total.IndexOf(last) - total.IndexOf(first)))).Replace(first, "")).Replace(last, "")
        Catch ArgumentOutOfRangeException As Exception
        End Try
    End Function

Dann hätte ich eine schöne _StringBetween("ANFANGSSTRING", "ENDSTRING", "ZUDURCHSUCHENDERSTRING"), die mir dann den String dazwischen rausgibt^^

Nun meine Frage:
gibt es hier VB2008-Programmierer, die eventuell sowas brauchen könnten?
Ich fühle mich unterfordert und hätte so wieder Arbeit

Padmak

Falls nicht gibt es doch bestimmt auch VB Foren

mfg Ubuntu

Die finden AutoIt aber alle grässlich xDD
Wollte ja nur mal rumfragen
Die ein oder andere Funktion brauch ich ja selbst auch, ich würds halt erweitern falls hier konkreter Bedarf besteht^^

Padmak

Sowas wie _Inetgetsource währe praktisch...
Oder gibts sowas schon?

Nur auf die schnelle:

Public Function _InetGetSource(ByVal urlGetSource As String) As String
        Dim strFileInhalt As String
        Dim tempFilePath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "download.txt")
        If Not urlGetSource Is Nothing Then
            Try
                If My.Computer.FileSystem.FileExists(tempFilePath) Then
                    Try
                        System.IO.File.Delete(tempFilePath)
                    Catch ex As Exception
                        Return ex.Message
                    End Try
                End If
                If Not urlGetSource.StartsWith("http://") Then urlGetSource = "http://" + urlGetSource
                My.Computer.Network.DownloadFile(urlGetSource, tempFilePath)
                strFileInhalt = My.Computer.FileSystem.ReadAllText(tempFilePath)
                Return strFileInhalt
            Catch ex As Exception
                Return ex.Message
            End Try
        End If
    End Function

Funktioniert recht gut, ich überlege gerade ob ich sie in einen seperaten Thread auslagern soll...

Padmak

Zitat von Sprenger120

Warum finden die Autoit grässlich???

Was weiß ich^^
Irgendwer sagte was von ner "Kindersprache"
Ist mir auch egal

Zitat von Sprenger120

Und kann man mit VB dll´s machen ?

Klar:
Datei|Neues Projekt|Klassenbibliothek
Aber bei mir funktioniert das Einbinden der dll nicht
Ich würde nämlich gerne eine AutoIt-DLL erstellen mit den ganzen Funktionen dann^^

Padmak

Ps: Am Rande, ein guter Buchtipp: Visual Basic 2008 für Dummies (lese ich gerade :D)

Edit: Die DLLs brauchen natürlich auch das .Net Framework^^

Zitat

brr also kann Autoit die dll´s nicht verwenden

Naja... das stimmt so nicht
Auf den meisten XP-Rechnern funktioniert es, auf Vista sowieso und unter 7 auf jeden Fall
Grund: Ab Service Pack 2 (XP) ist das .Net Framework 2.0 vorinstalliert, mehr brauchste eigentlich nicht
Es reicht für das allermeiste
Unter Vista gibts schon .NF 3.0 und ab 7 3.5

Also, verwenden kannst du sie schon^^
Wenn du was .NF-Unabhängiges haben willst, lern Delphi oder C/C++
Äh.. gerade werd ich auf die AutoItX3.dll aufmerksam... -_-
Da sind die ganzen Grund-Funktionen drin... aber die UDFs könnte ich nachprogrammieren

Padmak

So ich hab mal die DLL hochgeladen mit _InetGetSource
Verwendung:
Neues Projekt: Windows Forms-Anwendung
Projekt|<PROJEKTNAME>-Eigenschaften...
Links Verweise auswählen
Unten auf Hinzufügen, auf den Reiter Durchsuchen, die Dll suchen und dann auf OK
Code einfügen:

Dim a As New AutoIt.Web
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        MessageBox.Show(a._InetGetSource("http://www.google.de"))
    End Sub

Viel Spaß mit dieser riesen-DLL

Padmak

Äh ja?
Warum diese vielen !? ?^^
Hab ich irgendwas falsches gesagt?^^

Padmak

Falls es jemanden interessiert, hier der Aufruf für die AutoItX3.dll:
(Natürlich erst als Verweis hinzufügen^^)

Dim AutoItFuncs As New AutoItX3Lib.AutoItX3
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        AutoItFuncs.MouseMove(0, 0, 50)
    End Sub

Padmak

Naja das Problem ist eigentlich meine Langeweile
Das Problem an der AutoItX ist, dass sie leider nur die wichtigsten und einfachsten Befehle abdeckt...
Sowas wie das gewünschte _InetGetSource wird darin nicht erwähnt
Da ist nichmal ne MsgBox drin
Eigentlich sollte ich sagen dass ich die UDFs nachprogrammieren will^^
(zumindest teilweise^^)

Padmak

Ja achnein
Ich meine ja nur, wirklich vollständig is die Dll auch nicht^^

Padmak

Wie sieht's jez aus? Hat jemand Interesse daran?

Padmak