Tam0r Posted July 2, 2007 Share Posted July 2, 2007 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 Link to comment Share on other sites More sharing options...
PsaltyDS Posted July 2, 2007 Share Posted July 2, 2007 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. 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 Link to comment Share on other sites More sharing options...
Tam0r Posted July 2, 2007 Author Share Posted July 2, 2007 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. Thx for Help Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now