Hallo! Ich habe ein Problem mit Autoit. Ich habe folgenden Code in meiner Datei:
Code
Option Explicit
Private Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _
lpServerName As Any, _
lpMsgName As Byte, _
lpFromName As Any, _
lpBuf As Byte, _
ByVal lnBufLen As Long _
) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMsg(SendTo As String, Message As String) As Long
Dim WrittenTo() As Byte
Dim MSGBuffer() As Byte
WrittenTo = SendTo & vbNullChar
MSGBuffer = Message & vbNullChar
SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), _
WrittenBy(0), MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success)
End Function
Private Sub Command1_Click()
Dim Result As Boolean
Result = SendMsg(Text1, Text2)
If Result Then
MsgBox "PiH linesend konnte die Nachricht verschicken!"
Else
MsgBox "PiH linesend konnte die Nachricht leider nicht verschicken."
EndIf
End Sub
Alles anzeigen
Beim Ausführen kommt allerdings
Zitat>"D:\Programme\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Dokumente und Einstellungen\Nico\Eigene Dateien\netsend 0.1.au3"
C:\Dokumente und Einstellungen\Nico\Eigene Dateien\netsend 0.1.au3 (2) : ==> Missing separator character after keyword.:
Option Explicit
Option Explicit^ ERROR
>Exit code: 1 Time: 0.323
was mache ich falsch?
P.S. auch wenn ich "Option Explicit On" habe, kommt der selbe Text, nur hal mit "Option Explicit On".