AutoIt in VB2008? :D

tince

Ich glaube die meisten hassen Visual Basic

Blume

Also, ich würde mitmachen, AutoIt-Unterstützung in VB wäre wirklich toll
AutoIt verbreitet sich

TheShadowAE

Zitat von tince

Ich glaube die meisten hassen Visual Basic

Ich kenne es nicht wirklich, ich habe direkt mit C# angefangen
In C# würde ich mitmachen, aber VB kann ich nicht

Padmak

Niemand hasst VB

@DjBlume
Lass dir mal Funktionen einfallen, und stell die dann hier rein^^

TheShadowAE
Mach mal in C#, ich pass es dann an VB an
.Net-Syntax bleibt ja gleich

Padmak

tince

Zitat von Padmak

Niemand hasst VB

Nö, nur nicht.

TheShadowAE

Zitat von Padmak

Mach mal in C#, ich pass es dann an VB an

Was für eine? AutoitX benutzen oder soetwas wie _Stringbetween?

Für Stringbetween:

Spoiler anzeigen

Code

using System.Text.RegularExpressions;
//Classes Namespaces usw
public static string _StringBetween(string voll, string von, string bis)
{
    Regex reg = new Regex("^.*" + von + "(.*)" + bis + ".*$");
    if (reg.IsMatch(voll))
    {
        string[] res = reg.Split(voll);
        return res[1];
    }
    else
    {
        return "";
    }
}

Alles anzeigen

EDIT:
Überladung um Casesense angeben zu können:

Spoiler anzeigen

Code

public static string _StringBetween(string voll, string von, string bis, bool casesense)
	{
    	Regex reg;
    	if (casesense) //Übergeben: false->Groß/Klein wird beachtet
    	{
        	reg = new Regex("^.*" + von + "(.*)" + bis + ".*$", RegexOptions.IgnoreCase);
    	}
    	else
    	{
        	reg = new Regex("^.*" + von + "(.*)" + bis + ".*$");
    	}
    	if (reg.IsMatch(voll))
    	{
        	string[] res = reg.Split(voll);
        	return res[1];
    	}
    	else
    	{
        	return "";
    	}
	}

Alles anzeigen

Padmak

Okay eine StringBetween hab ich ja schon... aber mit RegEx? *kopfschüttel*
Kannst du das? xD
Eigentlich meinte ich andere Funktionen... andere, praktische UDF-Funktionen oder Funktionen, die halt nicht in der AutoItX3 enthalten sind

Padmak

TheShadowAE

Ja in C# kann ich Regex Autoit noch nicht, aber Autoit sieht das auch komplizierter aus als C#, schade dass es unterscheidliche Regex's sind.
Dann sag mir mal solche Funktionen, dann Versuche ich es

Padmak

Zitat von DjBlume

Also, ich würde mitmachen, AutoIt-Unterstützung in VB wäre wirklich toll
AutoIt verbreitet sich

Dazu kurz:
Naja... direkt AutoIt ist es ja nicht... nur die Funktionen nachprogrammiert und mit den selben Namen wie in AutoIt

TheShadowAE
Uff... äh...
Ich hab mal die gemacht (nur kurz):

Spoiler anzeigen

Code

Shared Function _FileCountLines(ByVal Path As String) As Integer
        Dim strInhalt As String
        Dim intZeilen As Integer
        If My.Computer.FileSystem.FileExists(Path) Then
            strInhalt = My.Computer.FileSystem.ReadAllText(Path)
            intZeilen = strInhalt.Split(vbNewLine).Length
            Return intZeilen
        Else
            Return -1
        End If
    End Function
    Shared Sub _FileCreate(ByVal Path As String)
        My.Computer.FileSystem.WriteAllText(Path, Nothing, False)
    End Sub

Alles anzeigen

Padmak

TheShadowAE

Ich wollte aber wissen was ich machen soll

Padmak

ich hab mir einfach mal aus UDF-Hilfe-Datei im Inhalt den Unterordner "File Management" rausgesucht und hab geschaut welche ich da nachprogrammieren könnte^^
Such einfach mal in der Hilfe-Datei rum und frage dich welche wichtig sind

Padmak

Gugi

hallo,

Ich Programmier autoit und vb, bin auch im vb forum und autoit forum.
Die im Forum haben es geschafft wirklich viele AutoIt Codes in Vb zu machen.

Anleitung(visual basic):

Neue Windows Forms Anwendung.
Projektmappen Explorer -> My Projekt -> Verweise -> Durchsuchen -> Im autoit ordner den ordner AutoITX -> AutoItX3.dll hinzufügen.
Das wär bei mir die Datei:
C:\Program Files\AutoIt3\AutoItX\AutoItX3.dll

Dann in der Form schreiben wir:

Code

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

Dann in dem Sub schreiben wir:
AutoItFuncs.deinbefehl

man muss halt immer AutoItFuncs Davor schreiben, und sind nicht 100 % alle funktionen drin, aber viele

Dann müsste z.b. mit dem Sleep Befehl der code so aussehen:

Code

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

Hoffe es gefällt euch

mfg

Padmak

Lieb von dir, aber das habe ich bereits geschrieben
Hier noch etwas erweitert, wenn man With - End With verwendet dann schauts so aus:

Code

Imports AutoItX3Lib
Public Class Form1
    Dim AutoItFuncs As New AutoItX3
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With AutoItFuncs
            Dim Clip As String = .ClipGet()
            MessageBox.Show(Clip)
        End With
    End Sub
End Class


Padmak

Alles anzeigen