mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
754 lines
23 KiB
754 lines
23 KiB
|
|
'******************************************************************************
|
|
|
|
' Hyper_Term.inc
|
|
' Created May, 22 1996
|
|
' By Ron Rohr
|
|
|
|
' This include file contains all the Functions used by the
|
|
' HyperTrm.MST test Script
|
|
|
|
'******************************************************************************
|
|
|
|
' Note: This file uses the Object Naming convention defined in the Visual Basic
|
|
' 4.0 Programmers Guide to name variables and contants associated with a control.
|
|
|
|
'$IFNDEF HYPER_TERM_INC
|
|
'$DEFINE HYPER_TERM_INC
|
|
|
|
'******************** Begin Procedure Declarations ****************************
|
|
|
|
Declare Sub EndTest ()
|
|
Declare Sub BoundsChkHandler (vtNotifyData as variant)
|
|
Declare Sub SetWndTimeout ()
|
|
Declare Function DetectModem() as long
|
|
Declare Function Call_Dialing_Prop (hTabCtrl as long, hMLTab as long, hTDTab as long) as long
|
|
Declare sub GetChildhandles (hParent as long, hChild() as long, ChildID() as long)
|
|
Declare sub EditLocationInfo (NewLocal as location, hML_Child() as long)
|
|
Declare Function StartHyperTerm( hHT as long ) as long
|
|
Declare Function ConnectDescript (hCDdlg as long) as long
|
|
Declare Function Connect (hConnectdlg as long, CurrentLoc as location, ModemName as string) as long
|
|
|
|
'******************** Begin Procedure *****************************************
|
|
|
|
'******************************************************************************
|
|
'Name : EndTest
|
|
'Desc : On End cleanup procedure.
|
|
'
|
|
'Parms : None
|
|
'
|
|
'Return : None.
|
|
'
|
|
'History: 05/22/96 : a-rrohr: Created
|
|
'*****************************************************************************
|
|
Sub EndTest ()
|
|
|
|
CloseCase (TEST_SCRIPT_TITLE)
|
|
|
|
CloseLog ()
|
|
|
|
Statusbox "The Hyper Terminal/TAPI Test is now Complete" + CRLF + _
|
|
"Test Case Number " + ltrim$(str$(TC_ID)), 0,0,0,0, TRUE, TRUE
|
|
Sleep 4
|
|
|
|
End Sub 'EndTest
|
|
|
|
'*****************************************************************************
|
|
'Name : BoundsChkHandler
|
|
'Desc : This routine is called whenever BoundsChecker uncovers a failure.
|
|
' The failure is then written ton the log and reports to the user via
|
|
' a message box.
|
|
' The routine is called with the On BoundsCheckerNotify (NULL) Call
|
|
' BoundsChkHandler statement in DP32.mst.
|
|
'
|
|
'Parms : None.
|
|
'
|
|
'Return : None. Writes failure data directly to the log.
|
|
'
|
|
'History: 02/26/96 : a-rrohr: Created
|
|
'*****************************************************************************
|
|
sub BoundsChkHandler (vtNotifyData as variant)
|
|
|
|
dim ErrorMessage as string, SizeofString as long, count as short, lastchar as short
|
|
|
|
ErrorMessage = "Unexpected BoundsChecker error in Dialing Properties Test" + CRLF
|
|
|
|
' Since the size of the string BoundsChecker returns is unknown the routine must be
|
|
' capable of formatting a large string into a paragraph whose lines are not greater
|
|
' than 72 characters.
|
|
|
|
While (len(vtNotifyData) >= 72)
|
|
SizeofString = len(vtNotifyData)
|
|
count = 1
|
|
do
|
|
lastchar = count
|
|
count = instr(lastchar + 1,vtNotifyData, " ")
|
|
' instr(lastchar + 1,vtNotifyData, " ") will return zero on the last word of
|
|
' the string so break the do loop when count = 0
|
|
loop while count < 72 and count <> 0
|
|
|
|
ErrorMessage = ErrorMessage + rtrim$(left$(vtNotifyData, lastchar)) + CRLF
|
|
vtNotifyData = right$(vtNotifyData, (SizeofString - lastchar))
|
|
Wend
|
|
|
|
If (len(vtNotifyData) >= 1) then
|
|
ErrorMessage = ErrorMessage + vtNotifyData + CRLF
|
|
end if
|
|
|
|
|
|
'$IFDEF DEBUG_TEST_SCRIPT
|
|
if Msgbox(ErrorMessage, MB_ICONEXCLAMATION or MB_YESNO) = IDYES then
|
|
resume next
|
|
else
|
|
Stop
|
|
endif
|
|
'$ENDIF 'DEBUG_TEST_SCRIPT
|
|
|
|
end sub 'BoundsChkHandler
|
|
'******************************************************************************
|
|
'Name : SetWndTimeout
|
|
'Desc : Sets the timeout variable used by the WFndWnd function.
|
|
' Some of the platforms tested on are very slow and if the timeout isn't
|
|
' long enough then the test continues with out finding the Window and its
|
|
' handle, dooming all subsequent test (that are dependent on this handle)
|
|
' to complete and utter failure.
|
|
'
|
|
'Parms : None
|
|
'
|
|
'Return : None. Sets the Global String variables WTIMEOUT
|
|
'
|
|
'History: 02/22/96 : a-rrohr: Created
|
|
'*****************************************************************************
|
|
|
|
Sub SetWndTimeout ()
|
|
|
|
dim tempstring as string ' Generic string variable
|
|
|
|
SetActiveTimeout (150)
|
|
SetDefaultWaitTimeout (2)
|
|
|
|
tempstring = space(40)
|
|
tempstring = environ$("PROCESSOR_ARCHITECTURE")
|
|
|
|
select case tempstring
|
|
|
|
case "x86", "MIPS"
|
|
|
|
IF environ$("PROCESSOR_LEVEL") = "4" then
|
|
SetActiveTimeout (1000)
|
|
SetDefaultWaitTimeout (10)
|
|
WTIMEOUT = 10
|
|
else
|
|
WTIMEOUT = 4
|
|
endif
|
|
|
|
case "PPC", "Alpha"
|
|
|
|
WTIMEOUT = 20
|
|
SetActiveTimeout (500)
|
|
SetDefaultWaitTimeout (10)
|
|
|
|
case else
|
|
|
|
WTIMEOUT = 30
|
|
SetDefaultWaitTimeout (10)
|
|
WritelogItem ("" ,"SetWndTimeout Subroutine - TAPI_BVT.inc")
|
|
WritelogItem ("" ,"Unable to set WTIMEOUT: Unknown Processor Architecture")
|
|
WritelogItem ("" ,"Processor Architecture environment variable = " + tempstring)
|
|
WritelogItem ("" ," ")
|
|
end select
|
|
|
|
'$IFDEF NUMEGA
|
|
WTIMEOUT = WTIMEOUT + 5 'If using BoundsChecker then add a few more seconds
|
|
'$ENDIF
|
|
|
|
end Sub 'SetWndTimeout ()
|
|
|
|
'******************************************************************************
|
|
'Name : DetectModem
|
|
'Desc : Runs Modem.cpl and determines if a modem is installed by which modem
|
|
' dialog appears
|
|
'
|
|
'Parms : None
|
|
'
|
|
'Return : True if a Modem is set up on this computer
|
|
' False if not.
|
|
'
|
|
'History: 04/15/96 : a-rrohr: Created
|
|
'******************************************************************************
|
|
|
|
Function DetectModem() as long
|
|
|
|
dim w_Flags as long
|
|
dim handle as long, hCtrl as long
|
|
dim Close_cmdID as long
|
|
dim SysDirPath as string
|
|
dim rtn as long
|
|
|
|
'Initialize variables
|
|
|
|
Close_cmdID = &h01& 'Close Command button ID on Modem Properties dialog
|
|
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST OR FW_NOERROR _
|
|
OR FW_FOCUS OR FW_NOCASE
|
|
SysDirPath = string$(168, chr$(0)) 'create a null terminated string
|
|
rtn = GetSystemDirectory (SysDirPath, len(SysDirPath))
|
|
|
|
'$ifdef NUMEGA
|
|
run "control.exe " + SysDirPath + MODEM_APPLET, BoundsChecker
|
|
'$else
|
|
run "control.exe " + SysDirPath + MODEM_APPLET, nowait
|
|
'$endif 'NUMEGA
|
|
|
|
DetectModem = FALSE 'Set default return value
|
|
|
|
'if the Modems Properties dialog appears then a modem is set up on the computer
|
|
|
|
handle = WFndWndC (MODEM_PROP_CAPTION, DIALOG_CLASS, w_Flags, WTIMEOUT)
|
|
|
|
if handle > 0 then 'a Modem is set up on this computer
|
|
hCtrl = GetDlgItem (handle, Close_cmdID)
|
|
WButtonClick (_hwnd(hCtrl))
|
|
WritelogItem ("" , "Modem Connected")
|
|
DetectModem = TRUE
|
|
Goto EndOFFunction
|
|
endif
|
|
|
|
'if the Install New Modem dialog appears then a modem is not set up on the
|
|
'computer and will need to be before the test can continue.
|
|
|
|
handle = WFndWndC (INSTALL_MODEM_CAPTION, DIALOG_CLASS, w_Flags, WTIMEOUT)
|
|
|
|
if handle > 0 then 'No Modems are set up on this computer
|
|
WritelogItem ("" , INSTALL_MODEM_CAPTION + " dialog Found")
|
|
WritelogItem ("" , "There are no Modems Setup on this computer")
|
|
WritelogItem ("" , " ")
|
|
endif
|
|
|
|
EndOFFunction:
|
|
end Function 'DetectModem
|
|
|
|
'*****************************************************************************
|
|
'Name : Call_Dialing_Prop
|
|
'Desc : Invokes the Dialing Properties window and returns the handle to the
|
|
' Dialing Properties dialog, the SysTabControl32, the My Location Tab,
|
|
' and the Telephony Drivers Tab.
|
|
'
|
|
'Parms : Passed 3 variables to store the handles to the Tab Control,
|
|
' My Location Tab and the Telephony Drivers Tab
|
|
'
|
|
'Return : Returns the Handle to the Dialing Properties dialog
|
|
'
|
|
'History: 01/12/96: a-rrohr: Created
|
|
'Modified 02/16/96: a-rrohr: deleted the Location Information code
|
|
' (now in subroutine SetLocationInfo)
|
|
'*****************************************************************************
|
|
|
|
Function Call_Dialing_Prop (hTabCtrl as long, hMLTab as long, hTDTab as long) as long
|
|
|
|
dim handle as long 'Generic window handle
|
|
dim hdialog as long 'Handle of Dialing Properties dialog, function rtns this value
|
|
dim hctrl as long 'Generic Handle to Control
|
|
dim teststring as casestruct 'Test Log Info
|
|
dim SysDirPath as string 'Path to system32 directory
|
|
dim rtn as long 'Generic return variable
|
|
dim SysTabCtrlID as integer 'ID of SysTabCtrl32 control
|
|
dim OK_cmdID as long 'ID of Dialing Properties OK button
|
|
dim failcount as short
|
|
dim StaticID as long
|
|
dim messagestr as string
|
|
|
|
SysTabCtrlID = &h03020&
|
|
OK_cmdID = &h0001&
|
|
|
|
SysDirPath = space$(168)
|
|
rtn = GetSystemDirectory (SysDirPath, 168)
|
|
|
|
' If a pre-existing instance of dialing properties exists close it with an OK button click
|
|
hdialog = WFndWnd (PROPERTIES_CAPTION, FW_EXIST, WTIMEOUT)
|
|
if hdialog <> 0 then
|
|
hctrl = GetDlgItem (hdialog, OK_cmdID)
|
|
WButtonClick (_hwnd(hctrl)) 'Click the Dialing Properties OK button
|
|
sleep 1
|
|
end if
|
|
|
|
' Invoke Dialing Properties
|
|
|
|
'$ifdef NUMEGA
|
|
run "control.exe " + SysDirPath + "\TELEPHON.CPL", BoundsChecker
|
|
'$else
|
|
run "control.exe " + SysDirPath + "\TELEPHON.CPL", nowait
|
|
'$endif 'NUMEGA
|
|
|
|
' Get and validate Dialing Properties window handle
|
|
|
|
hdialog = WFndWnd (PROPERTIES_CAPTION, FW_EXIST, WTIMEOUT)
|
|
TotalTestCases = TotalTestCases + 1
|
|
teststring.TC_Num = 1
|
|
teststring.Expect_Res = "Valid Properties Handle"
|
|
teststring.Actual_Res = "Properties Handle =" + Str$(hdialog)
|
|
|
|
if hdialog = 0 then
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
LogCase (teststring)
|
|
else
|
|
teststring.Apprase = "Pass"
|
|
LogCase (teststring)
|
|
endif
|
|
|
|
WSetWndPos (hdialog, 1, 1)
|
|
Call_Dialing_Prop = hdialog
|
|
|
|
' End - Get and validate Dialing Properties window handle
|
|
' Get and validate SysTabControl32 handle
|
|
|
|
hTabCtrl = GetDlgItem (hdialog, SysTabCtrlID)
|
|
TotalTestCases = TotalTestCases + 1
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = "Valid SysTab Control Handle"
|
|
teststring.Actual_Res = "Sys Tab Handle =" + Str$(hTabCtrl)
|
|
|
|
if hTabCtrl = 0 then
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
LogCase (teststring)
|
|
else
|
|
teststring.Apprase = "Pass"
|
|
LogCase (teststring)
|
|
endif
|
|
|
|
' End - Get and validate SysTabControl32 handle
|
|
' Get and validate My Location Tab handle
|
|
|
|
hMLTab = WFndWndC (tab_MY_LOCATION, DIALOG_CLASS, W_Flags, WTIMEOUT)
|
|
TotalTestCases = TotalTestCases + 1
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = "Valid My Location Handle"
|
|
teststring.Actual_Res = "Tab Handle =" + Str$(hMLTab)
|
|
|
|
if hMLTab = 0 then
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
LogCase (teststring)
|
|
else
|
|
teststring.Apprase = "Pass"
|
|
LogCase (teststring)
|
|
endif
|
|
|
|
end function
|
|
|
|
'*****************************************************************************
|
|
'Name : GetChildhandles
|
|
'Desc : Fills the hChild array with the handles to the child controls of hParent
|
|
'
|
|
'Parms : hTab = handle to My Location Tab
|
|
' hChild = array of My Location child control handles.
|
|
' ChildID = array of child control IDs
|
|
'
|
|
'Return : Void: Subroutine fills in the hChild array parameter
|
|
'
|
|
'History: 02/10/96 : a-rrohr: Created
|
|
'*****************************************************************************
|
|
sub GetChildhandles (hParent as long, hChild() as long, ChildID() as long)
|
|
|
|
dim count as short
|
|
dim beginning as short
|
|
dim ending as short
|
|
|
|
beginning = lbound(hChild)
|
|
ending = ubound(hChild)
|
|
|
|
for count = beginning to ending
|
|
hChild(count) = GetDlgItem (hParent, ChildID(count))
|
|
next
|
|
end sub
|
|
|
|
'*****************************************************************************
|
|
'Name : EditLocationInfo
|
|
'Desc : Enters data from location variable into My Location controls
|
|
' Called by SetLocationsZero, AddLocation and ModifyLocation.
|
|
'
|
|
'Parms : Location structure containing new location info
|
|
' Array of My Location child control handles
|
|
'Return : None
|
|
'
|
|
'History: 02/15/96 : a-rrohr: Created
|
|
'*****************************************************************************
|
|
sub EditLocationInfo (NewLocal as location, hML_Child() as long)
|
|
|
|
dim rtn as long
|
|
|
|
WComboSetText (_hwnd(hML_Child(LOCATION_cbo)), NewLocal.Location)
|
|
WComboItemClk (_hwnd(hML_Child(COUNTRY_cbo)), NewLocal.Country)
|
|
|
|
WEditSetText (_hwnd(hML_Child(AREA_txt)), NewLocal.AreaCode)
|
|
WEditSetText (_hwnd(hML_Child(LOCAL_txt)), NewLocal.LocalAccess)
|
|
WEditSetText (_hwnd(hML_Child(LONG_txt)), NewLocal.LongAccess)
|
|
|
|
|
|
if (NewLocal.CardSet = Checked) then
|
|
WCheckSetFocus (_hwnd(hML_Child(CARD_chk)), TIMEOUT)
|
|
WCheckCheck (_hwnd(hML_Child(CARD_chk)), TIMEOUT)
|
|
else
|
|
WCheckSetFocus (_hwnd(hML_Child(CARD_chk)), TIMEOUT)
|
|
WCheckUnCheck (_hwnd(hML_Child(CARD_chk)), TIMEOUT)
|
|
endif
|
|
|
|
sleep .1
|
|
|
|
if (NewLocal.WaitSet = Checked) then
|
|
WCheckSetFocus (_hwnd(hML_Child(WAIT_chk)), TIMEOUT)
|
|
WCheckCheck (_hwnd(hML_Child(WAIT_chk)), TIMEOUT)
|
|
'print "NewLocal.WaitSet = Checked is true"
|
|
'print "Handle to Call waiting check box = ";hML_Child(WAIT_chk)
|
|
else
|
|
'print "NewLocal.WaitSet = Checked is False"
|
|
'print "NewLocal.WaitSet = ";NewLocal.WaitSet
|
|
WCheckSetFocus (_hwnd(hML_Child(WAIT_chk)), TIMEOUT)
|
|
WCheckUnCheck (_hwnd(hML_Child(WAIT_chk)), TIMEOUT)
|
|
endif
|
|
|
|
rtn = WOptionState (_hwnd(hML_Child(TONE_opt)))
|
|
if rtn <> NewLocal.ToneSet then
|
|
WOptionClick (_hwnd(hML_Child(TONE_opt)), TIMEOUT)
|
|
endif
|
|
|
|
end sub 'EditLocationInfo
|
|
|
|
'******************************************************************************
|
|
'Name : StartHyperTerm
|
|
'Desc : Starts Hyper Terminal
|
|
'
|
|
'Parms : hHT: Handle to Hyper Terminal window
|
|
'
|
|
'Return : Handle to Connection Description dialog otherwise 0
|
|
'
|
|
'History: 05/22/96 : a-rrohr: Created
|
|
'******************************************************************************
|
|
Function StartHyperTerm( hHT as long ) as long
|
|
|
|
dim w_flags as long 'used with WFndWnd function
|
|
dim SysDirPath as string 'holds path to windows system directory
|
|
dim HT_Path as string
|
|
dim rtn as long 'generic return variable
|
|
dim hDlg as long 'holds handle to Connection Description dialog
|
|
'Initialize variables
|
|
|
|
StartHyperTerm = 0'Set default return value
|
|
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
|
|
OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE
|
|
|
|
HT_Path = string$(MAX_PATH, chr$(0))
|
|
SysDirPath = string$(MAX_PATH, chr$(0)) 'create a null terminated string
|
|
rtn = GetSystemDirectory (SysDirPath, len(SysDirPath))
|
|
|
|
if exists ("C:\program files\Windows NT" + HT_APPLET) then
|
|
HT_Path = "C:\program files\Windows NT"
|
|
elseif exists ("D:\program files\Windows NT" + HT_APPLET) then
|
|
HT_Path = "D:\program files\Windows NT"
|
|
elseif exists (SysDirPath + HT_APPLET) then
|
|
HT_Path = SysDirPath
|
|
endif
|
|
|
|
'$ifdef NUMEGA
|
|
run HT_Path + HT_APPLET, BoundsChecker
|
|
'$else
|
|
run HT_Path + HT_APPLET, nowait
|
|
'$endif 'NUMEGA
|
|
|
|
hDlg = WFndWndC (CD_CAPTION, DIALOG_CLASS, w_flags, WTimeout)
|
|
|
|
if hDlg > 0 then
|
|
StartHyperTerm = hDlg
|
|
hHT = GetParent (hDlg)
|
|
endif
|
|
|
|
End Function 'StartHyperTerm
|
|
|
|
'******************************************************************************
|
|
'Name : ConnectDescript
|
|
'Desc : Enters name in Connection Description dialog, clicks OK and
|
|
' returns handle to Phone Number dialog
|
|
'
|
|
'Parms : hDescript: handle to Connection Description dialog
|
|
'
|
|
'Return : Handle to Phone Number dialog otherwise 0
|
|
'
|
|
'History: 06/04/96 : a-rrohr: Created
|
|
'******************************************************************************
|
|
Function ConnectDescript (hCDdlg as long) as long
|
|
|
|
dim w_flags as long 'used with WFndWnd function
|
|
dim rtn as long 'generic return variable
|
|
dim NametxtID as long 'Name Edit Box ID
|
|
dim hCtrl as long
|
|
|
|
'Initialize variables
|
|
|
|
ConnectDescript = 0'Set default return value
|
|
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
|
|
OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE
|
|
NametxtID = &h006A&
|
|
|
|
hCtrl = GetDlgItem ( hCDdlg, NametxtID )
|
|
WEditSetText ( _hwnd(hCtrl), CONN1_NAME)
|
|
hCtrl = GetDlgItem ( hCDdlg, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
ConnectDescript = WFndWndC (PN_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
End Function 'ConnectDescript
|
|
|
|
'******************************************************************************
|
|
'Name : PhoneNumber
|
|
'Desc : Enters name in Connection Description dialog, clicks OK and
|
|
' returns handle to Phone Number dialog
|
|
'
|
|
'Parms : hDescript: handle to Connection Description dialog
|
|
'
|
|
'Return : Handle to Phone Number dialog otherwise 0
|
|
'
|
|
'History: 06/04/96 : a-rrohr: Created
|
|
'******************************************************************************
|
|
Function PhoneNumber (hDlgPhoneNo as long, ModemName as string) as long
|
|
|
|
dim w_flags as long 'used with WFndWnd function
|
|
dim rtn as long 'generic return variable
|
|
dim CountryID as long 'Country ComboBox ID
|
|
dim AreaCodeID as long 'Area Code Edit Box ID
|
|
dim PN_ID as long 'Phone Number Edit Box ID
|
|
dim ModemID as long 'Modem combobox
|
|
dim hCtrl as long
|
|
|
|
'Initialize variables
|
|
|
|
PhoneNumber = 0'Set default return value
|
|
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
|
|
OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE
|
|
CountryID = &h0072&
|
|
AreaCodeID = &h006B&
|
|
PN_ID = &h006D&
|
|
ModemID = &h006F&
|
|
|
|
hctrl = GetDlgItem (hDlgPhoneNo, CountryID)
|
|
WComboItemClk (_hwnd(hctrl), USA)
|
|
hCtrl = GetDlgItem ( hDlgPhoneNo, AreaCodeID )
|
|
WEditSetText ( _hwnd(hCtrl), AREACODE_NO)
|
|
hCtrl = GetDlgItem ( hDlgPhoneNo, PN_ID )
|
|
WEditSetText ( _hwnd(hCtrl), COMP_SERVE_NO)
|
|
hCtrl = GetDlgItem ( hDlgPhoneNo, ModemID )
|
|
ModemName = ComboText (_hwnd(hCtrl))
|
|
|
|
hCtrl = GetDlgItem ( hDlgPhoneNo, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
PhoneNumber = WFndWndC (CONNECT_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
End Function 'PhoneNumber
|
|
|
|
'******************************************************************************
|
|
'Name : Connect
|
|
'Desc : Enters name in Connection Description dialog, clicks OK and
|
|
' returns handle to Phone Number dialog
|
|
'
|
|
'Parms : hDescript: handle to Connection Description dialog
|
|
'
|
|
'Return : none
|
|
'
|
|
'History: 06/04/96 : a-rrohr: Created
|
|
'******************************************************************************
|
|
Function Connect (hDlgConnect as long, CurrentLoc as location, ModemName as string) as long
|
|
|
|
dim tempstr as string
|
|
dim w_flags as long 'used with WFndWnd function
|
|
dim rtn as long 'generic return variable
|
|
dim ModifyID as long 'Connect Dialog Control IDs
|
|
dim DialPropID as long
|
|
dim Dial_ID as long
|
|
dim PhoneNoID as long
|
|
dim CountryID as long 'Properties Dialog Control IDs
|
|
dim AreaID as long
|
|
dim PhoneID as long
|
|
dim ModemID as long
|
|
dim ConfigID as long
|
|
dim UseCodeID as long
|
|
|
|
dim hCtrl as long
|
|
dim handle as long 'Generic handle
|
|
dim hProperties as long
|
|
dim hConnectTab as long
|
|
'Initialize variables
|
|
|
|
Connect = 0'Set default return value
|
|
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
|
|
OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE
|
|
ModifyID = &h006A&
|
|
DialPropID = &h006D&
|
|
Dial_ID = &h0001&
|
|
PhoneNoID = &h0069&
|
|
|
|
CountryID = &h0072&
|
|
AreaID = &h006B&
|
|
PhoneID = &h006D&
|
|
ModemID = &h006F&
|
|
ConfigID = &h0073&
|
|
UseCodeID = &h0074&
|
|
|
|
'Click modify button
|
|
hCtrl = GetDlgItem ( hDlgConnect, ModifyID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
hProperties = WFndWndC (CONN1_NAME + " " + PROPERTIES, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = "Properties dlg handle"
|
|
teststring.Actual_Res = Hex$(hProperties)
|
|
TotalTestCases = TotalTestCases + 1
|
|
|
|
if hProperties > 0 then
|
|
teststring.Apprase = "Pass"
|
|
else
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
endif
|
|
LogCase (teststring)
|
|
|
|
'Get handle to Connect To tab
|
|
handle = WFndWndC (PN_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
hCtrl = GetDlgItem ( handle, UseCodeID )
|
|
WCheckSetState (_hwnd(hCtrl), UNCHECKED)
|
|
|
|
'Close Properties dialog
|
|
hCtrl = GetDlgItem ( hProperties, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
'Get Phone Number. Note although the control looks like a static it's class is edit
|
|
hCtrl = GetDlgItem ( hDlgConnect, PhoneNoID )
|
|
tempStr = EditText (_hwnd(hCtrl))
|
|
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = COMP_SERVE_NO
|
|
teststring.Actual_Res = TempStr
|
|
TotalTestCases = TotalTestCases + 1
|
|
|
|
if teststring.Expect_Res = teststring.Actual_Res then
|
|
teststring.Apprase = "Pass"
|
|
else
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
endif
|
|
LogCase (teststring)
|
|
|
|
hCtrl = GetDlgItem ( hDlgConnect, DialPropID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
handle = WFndWndC (DIAL_PROP_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = "Dial Prop handle"
|
|
teststring.Actual_Res = hex$(handle)
|
|
TotalTestCases = TotalTestCases + 1
|
|
|
|
if handle > 0 then
|
|
teststring.Apprase = "Pass"
|
|
else
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
endif
|
|
LogCase (teststring)
|
|
|
|
'Close Properties dialog
|
|
hCtrl = GetDlgItem ( handle, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
'Click modify button
|
|
hCtrl = GetDlgItem ( hDlgConnect, ModifyID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
hProperties = WFndWndC (CONN1_NAME + " " + PROPERTIES, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
'Get handle to Connect To tab
|
|
handle = WFndWndC (PN_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
hCtrl = GetDlgItem ( handle, UseCodeID )
|
|
WCheckSetState (_hwnd(hCtrl), CHECKED)
|
|
|
|
'Close Properties dialog
|
|
hCtrl = GetDlgItem ( hProperties, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
'Get Phone Number
|
|
hCtrl = GetDlgItem ( hDlgConnect, PhoneNoID )
|
|
tempStr = EditText (_hwnd(hCtrl))
|
|
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = CurrentLoc.LocalAccess + " " + COMP_SERVE_NO
|
|
teststring.Actual_Res = TempStr
|
|
TotalTestCases = TotalTestCases + 1
|
|
|
|
if teststring.Expect_Res = teststring.Actual_Res then
|
|
teststring.Apprase = "Pass"
|
|
else
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
endif
|
|
LogCase (teststring)
|
|
|
|
'Click Modify
|
|
hCtrl = GetDlgItem ( hDlgConnect, ModifyID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
hProperties = WFndWndC (CONN1_NAME + " " + PROPERTIES, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
'Get handle to Connect To tab
|
|
handle = WFndWndC (PN_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
'Click on Configure button (lineConfigDialog)
|
|
hCtrl = GetDlgItem ( handle, ConfigID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
handle = WFndWndC ( ModemName + " " + PROPERTIES, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
teststring.TC_Num = teststring.TC_Num + 1
|
|
teststring.Expect_Res = ModemName + " " + PROPERTIES + "handle"
|
|
teststring.Actual_Res = hex$(handle)
|
|
TotalTestCases = TotalTestCases + 1
|
|
|
|
if handle > 0 then
|
|
teststring.Apprase = "Pass"
|
|
else
|
|
teststring.Apprase = "FAIL *"
|
|
FailedTestCases = FailedTestCases + 1
|
|
endif
|
|
LogCase (teststring)
|
|
|
|
'Close Modem Properties dialog
|
|
hCtrl = GetDlgItem ( handle, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
'Close Properties dialog
|
|
hCtrl = GetDlgItem ( hProperties, OK_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
'Click on Dial and return handle to 2nd Connect window
|
|
hCtrl = GetDlgItem ( hDlgConnect, Dial_ID )
|
|
WButtonClick (_hwnd(hCtrl))
|
|
|
|
Connect = WFndWndC (CONNECT_CAPTION, DIALOG_CLASS, w_flags, WTimeOut)
|
|
|
|
End Function 'PhoneNumber
|
|
|
|
'ModifyID = &h006A&
|
|
'DialPropID = &h006D&
|
|
'Dial_ID = &h0001&
|
|
'PhoneNoID = &h0069&
|
|
|
|
'CountryID = &h0072&
|
|
'AreaID = &h006B&
|
|
'PhoneID = &h006D&
|
|
'ModemID = &h006F&
|
|
'ConfigID = &h0073&
|
|
'UseCodeID = &h0074&
|
|
|
|
'$ENDIF 'HYPER_TERM_INC
|