Sign in to follow this  
Followers 0
Tam0r

Com Obj

3 posts in this topic

I do not know myself with Com Obj so well out. Perhaps me someone this with autoit convert please?

Option Explicit

Dim WithEvents MyISDNCallServerObj As ISDNCallServer

Private Sub CommandButton1_Click()

'Anmeldung beim ISDNCall COM-Server für Anrufereignisse:

Set MyISDNCallServerObj = New ISDNCallServer

End Sub

'wird automatisch bei einem Anrufereignis aufgerufen

Private Sub MyISDNCallServerObj_Anruf(sRufnummer As String)

ctrlRufnummer = sRufnummer

MsgBox sRufnummer

End Sub

Share this post


Link to post
Share on other sites



I do not know myself with Com Obj so well out. Perhaps me someone this with autoit convert please?

Option Explicit

Dim WithEvents MyISDNCallServerObj As ISDNCallServer

Private Sub CommandButton1_Click()

'Anmeldung beim ISDNCall COM-Server für Anrufereignisse:

Set MyISDNCallServerObj = New ISDNCallServer

End Sub

'wird automatisch bei einem Anrufereignis aufgerufen

Private Sub MyISDNCallServerObj_Anruf(sRufnummer As String)

ctrlRufnummer = sRufnummer

MsgBox sRufnummer

End Sub

Here's a shot at it:

Global $MyISDNCallServerObj, $ctrlRufnummer

Func CommandButton1_Click()
    ; Anmeldung beim ISDNCall COM-Server für Anrufereignisse:
    $MyISDNCallServerObj = ObjCreate("ISDNCallServer")
EndFunc   ;==>CommandButton1_Click

; wird automatisch bei einem Anrufereignis aufgerufen
Func MyISDNCallServerObj_Anruf($sRufnummer)
    $ctrlRufnummer = $sRufnummer
    MsgBox(64, "sRufnummer", $sRufnummer)
EndFunc   ;==>MyISDNCallServerObj_Anruf

Nothing calls the declared functions, so it must be part of a larger script to do anything.

:rolleyes:


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

Here's a shot at it:

Global $MyISDNCallServerObj, $ctrlRufnummer

Func CommandButton1_Click()
    ; Anmeldung beim ISDNCall COM-Server für Anrufereignisse:
    $MyISDNCallServerObj = ObjCreate("ISDNCallServer")
EndFunc   ;==>CommandButton1_Click

; wird automatisch bei einem Anrufereignis aufgerufen
Func MyISDNCallServerObj_Anruf($sRufnummer)
    $ctrlRufnummer = $sRufnummer
    MsgBox(64, "sRufnummer", $sRufnummer)
EndFunc   ;==>MyISDNCallServerObj_Anruf

Nothing calls the declared functions, so it must be part of a larger script to do anything.

:rolleyes:

Thx for Help

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0