VB Script zu einer exe kompilieren
Hallo Leute,
nach stundenlanger Suche geb ich jetzt auf und wende mich an euch.
Ich versuche verzweifelt dieses VB Script in eine .exe zu verwandeln.
Wie ihr seht benötige ich ein Script das eine Mail übers Outlook versendet.......
Das ganze funktioniert so auch wunderbar.... Das Mail wird versendet und über FaxMaker wird eine SMS versendet.
Leider brauch ich eine .exe Datei und keine .vbs Datei. Damit kann die Monitoring Software nicht umgehen.....
Kann mir bitte jemand erklären wie ich das Script in eine exe verwandeln kann?
Visual Studio hab ich installiert (Testversion), nur leider hab ich keine Ahnung wie das gehen sollte.
Anscheinend muss ich das Script ja zu VB "portieren" und anschließend zu einer .exe kompilieren.
Kann mir das mal bitte jemand genau erklären?
Ich hab Visual Studio grad das erste mal offen. ;)
Danke.
mfG
Joe
nach stundenlanger Suche geb ich jetzt auf und wende mich an euch.
Ich versuche verzweifelt dieses VB Script in eine .exe zu verwandeln.
Const olByValue = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send
End With
Wie ihr seht benötige ich ein Script das eine Mail übers Outlook versendet.......
Das ganze funktioniert so auch wunderbar.... Das Mail wird versendet und über FaxMaker wird eine SMS versendet.
Leider brauch ich eine .exe Datei und keine .vbs Datei. Damit kann die Monitoring Software nicht umgehen.....
Kann mir bitte jemand erklären wie ich das Script in eine exe verwandeln kann?
Visual Studio hab ich installiert (Testversion), nur leider hab ich keine Ahnung wie das gehen sollte.
Anscheinend muss ich das Script ja zu VB "portieren" und anschließend zu einer .exe kompilieren.
Kann mir das mal bitte jemand genau erklären?
Ich hab Visual Studio grad das erste mal offen. ;)
Danke.
mfG
Joe
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 175002
Url: https://administrator.de/forum/vb-script-zu-einer-exe-kompilieren-175002.html
Ausgedruckt am: 23.12.2024 um 11:12 Uhr
10 Kommentare
Neuester Kommentar
Public Class frmSchleifentester
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Const olByValue As Integer = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
oOApp = CreateObject("Outlook.Application")
oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send()
End With
End Sub
End Class
^^
wann soll der Code denn ausgeführt werden? Ich habe einen Button erstellt, wenn der Anwender darauf klickt, soll der Code ausgeführt werden. Der Button heißt bei mir btnStart.. das Formular heißt frmSchleifentester. Du müsstet bei dir nur die Namen anpassen. Bei mir läufts, gut gecodet!
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Const olByValue As Integer = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
oOApp = CreateObject("Outlook.Application")
oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send()
End With
End Sub
End Class
^^
wann soll der Code denn ausgeführt werden? Ich habe einen Button erstellt, wenn der Anwender darauf klickt, soll der Code ausgeführt werden. Der Button heißt bei mir btnStart.. das Formular heißt frmSchleifentester. Du müsstet bei dir nur die Namen anpassen. Bei mir läufts, gut gecodet!
okay dann probiere es mal in der Konsole und speichere deine datei als .vb
in der Konsole läßt du ihn in eine *.exe Datei kompilieren "vbc dateiname.vb"
option Explicit off
option Strict off
Module abc
sub main()
Const olByValue As Integer = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
oOApp = CreateObject("Outlook.Application")
oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send()
End With
end sub
end module
^^
ich hoffe es hilft dir? ansonsten bin ich überfragt, da ich erst seit kurzem mit dem coden angefangen habe
in der Konsole läßt du ihn in eine *.exe Datei kompilieren "vbc dateiname.vb"
option Explicit off
option Strict off
Module abc
sub main()
Const olByValue As Integer = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
oOApp = CreateObject("Outlook.Application")
oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send()
End With
end sub
end module
^^
ich hoffe es hilft dir? ansonsten bin ich überfragt, da ich erst seit kurzem mit dem coden angefangen habe
hi,
du willst es also partout in Visual Studio kompilieren lassen?
Ich bin auf die Konsole ausgewichen, da es mir geläufiger war
Option Explicit
und
option Strict
auf "off" in der Konsole einzugeben. Option Explicit off schaltet die
Variablenüberprüfung aus. Ist eine Variable in der Größe falsch zugewiesen worden,
wird die Überprüfung beim kompilieren unterdrückt. Option Strict off schaltet
eine falsche Zuweisung aus, so kann es sein, dass man dem Programm anweist
a=b. a ist z.b. Byte.. b ist z.b. Integer. Variable a soll also den Wert von b übernehmen,
da Variable a als typ Byte nicht die ganze Integerklasse übernehmen kann, weil byte
kleiner als integer ist, meckert er herum.
Es sind kann-fehler.. diese unterdrückst du mit Option Explicit und Option Strict. Man
macht dies normalerweise nicht.. weil man Laufzeitfehler produzieren kann. Es ist
nur eine schnelle Methode oder Anfängermethode (wie bei mir) diese Fehler wegzubekommen, deshalb ist deine Const
auch gleich am Anfang grün unterstrichen.
Wie kannst du nun Option Explict und Option Scrit off setzen, damit er kompiliert?
Ich glaube, wenn du im Projektmappen-Explorer deinen Projektnamen anklickst
und mit rechter Maustaste im Kontextmenü Eigenschaften auswählst, müsstet
du dort irgendwie hingelangen. Ich kanns nur selber gerade nicht testen, da
ich am normalen User-Pc sitze
du willst es also partout in Visual Studio kompilieren lassen?
Ich bin auf die Konsole ausgewichen, da es mir geläufiger war
Option Explicit
und
option Strict
auf "off" in der Konsole einzugeben. Option Explicit off schaltet die
Variablenüberprüfung aus. Ist eine Variable in der Größe falsch zugewiesen worden,
wird die Überprüfung beim kompilieren unterdrückt. Option Strict off schaltet
eine falsche Zuweisung aus, so kann es sein, dass man dem Programm anweist
a=b. a ist z.b. Byte.. b ist z.b. Integer. Variable a soll also den Wert von b übernehmen,
da Variable a als typ Byte nicht die ganze Integerklasse übernehmen kann, weil byte
kleiner als integer ist, meckert er herum.
Es sind kann-fehler.. diese unterdrückst du mit Option Explicit und Option Strict. Man
macht dies normalerweise nicht.. weil man Laufzeitfehler produzieren kann. Es ist
nur eine schnelle Methode oder Anfängermethode (wie bei mir) diese Fehler wegzubekommen, deshalb ist deine Const
auch gleich am Anfang grün unterstrichen.
Wie kannst du nun Option Explict und Option Scrit off setzen, damit er kompiliert?
Ich glaube, wenn du im Projektmappen-Explorer deinen Projektnamen anklickst
und mit rechter Maustaste im Kontextmenü Eigenschaften auswählst, müsstet
du dort irgendwie hingelangen. Ich kanns nur selber gerade nicht testen, da
ich am normalen User-Pc sitze
Option Explicit Off
Option Strict Off
Public Class Form1
'Module abc
Sub main()
Const olMailItem = 0
Const olByValue = 1
Dim oOApp
Dim oOMail
oOApp = CreateObject("Outlook.Application")
oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send()
End With
End Sub
End Class
^^
so kompiliert er auch unter vb...
die unterstrichene Fehlermeldung kommt, da du die Konstante nicht weiter im Programm verwendest
Option Strict Off
Public Class Form1
'Module abc
Sub main()
Const olMailItem = 0
Const olByValue = 1
Dim oOApp
Dim oOMail
oOApp = CreateObject("Outlook.Application")
oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "[sms:handynr]"
.Subject = ""
.Body = "Einer der Server hat soeben ein KRITISCHES Problem gemeldet! Detaillierte Informationen wurden Ihnen soeben per Mail geschickt!"
.Send()
End With
End Sub
End Class
^^
so kompiliert er auch unter vb...
die unterstrichene Fehlermeldung kommt, da du die Konstante nicht weiter im Programm verwendest