home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Wtestowe / Clico / MVW2000 / SAMPLES / DDE / FRMSYSTE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-07-10  |  7.3 KB  |  170 lines
  1. frmSystemConnect
  2. Remote Login
  3. wwwww
  4. DDDDDp
  5. DDDDD
  6. Form15s
  7. txtLinkControl
  8.     cmdCancel
  9. cancel
  10. cmdConnect
  11. connect
  12. txtPassword
  13.     txtUserId
  14. labPassword
  15. Password
  16.     labUserId
  17. User ID
  18.     Form_Load
  19. cmdConnect:
  20. Enabled
  21. cmdCancel_Click
  22. txtUserId_Change
  23. txtPassword'
  24. cmdConnect_Clickd
  25. CreateLink
  26. txtLinkControl~
  27. LinkType
  28. LINK_NOTIFY
  29.     Connectedn
  30. txtReceive
  31. txtLinkx
  32.     optWyse60
  33. Value4
  34. Emulator
  35. MakeConnection
  36. ConnectState.
  37. cmdLogin"
  38. NO_APP_RESPONDED
  39. StartApp+
  40. txtDDENo
  41. SendScriptingDatar
  42. DisconnectL
  43.     cmdCancel
  44. txtLinkControl_ChangeU
  45. txtLinkControl_LinkNotify
  46. TempText=
  47. sTempStringX
  48. sTestString 
  49. txtLoginl
  50. LinkModej
  51. frmSystemConnect
  52. iConnecteda
  53. NO_LINK
  54. Caption
  55. Control
  56.     LinkTopic
  57. LinkItem
  58. mtermu
  59.     txtUserId
  60. txtPassword_Change<
  61. appname;
  62. appargs#
  63. PasswordCharV
  64. BadDatam
  65. IstrU
  66. txtPassword_KeyDownA
  67. KeyCode
  68. Shift
  69. txtPassword_Click
  70. ByeBye
  71. MANUAL.
  72. renotify
  73. NOTIFY
  74. ExitForm
  75. LINK_MANUAL
  76. labUserId_Click
  77. labPassword_Click
  78. labSystemConnect_Click2
  79. Combo1_Change
  80.     cmblbHost
  81. cmblbHost_Change
  82. HostName~
  83. CLine
  84. Position
  85. cmblbHosts
  86. cmblbHosts_Change
  87. Label1_Click
  88.     ListIndex
  89. frmApps
  90. Label2_Click
  91. lblStatusBar
  92. lblStatusBar_ClickC
  93. dollarcase
  94. Visiblep
  95. frmmenu(
  96. Progra
  97. Intran
  98. Ensureb
  99.     correctly
  100. valid
  101. file<
  102. cmdCancel_Click
  103. Unlink DDE and exit VB
  104. [ABORT]
  105. cmdConnect_Click
  106. # Connect is used to link the Visual Basic Application to the Terminal Emulator
  107. # to allow enhanced scripting of the login procedure. 
  108. # Attempt to make a DDE link to the Terminal Emulatorn
  109. # If Link is OK,  close the existing connection and unload VB form
  110. Already connected,  closing connection
  111. [ABORT]
  112. # If unsuccessful run new instance of JSBTERME
  113. # Ensure $PATH is set correctly and set the command to use a valid ZZT file 
  114.           If StartApp("JSBTERM", "-s" + Chr$(34) & "c:\Program Files\MultiView 2000\jsb.zzt" & Chr$(34)) Then
  115. # If JSBTERM starts OK try to make DDE link againi
  116. # Link OK 
  117. # No link - print message and exit
  118. Sorry, Cannot Create DDE Link
  119. # If TE doesn't run exit
  120. Sorry Cannot Run Terminal Emulator
  121. CreateLink
  122. # Setting ctl.LinkMode makes/unmakes the DDE Link#
  123. # Topic is typically application name and application arguments#
  124. # MvwDDEStream is the link item instead of the field address
  125. #  For LinkTopic
  126. #  Ensure $PATH is set correctly and set the command to use a valid ZZT file
  127.     ctl.LinkTopic = "JSBTERM|" & Chr$(34) + "c:\Program Files\MultiView 2000\jsb.zzt" & Chr$(34)
  128. JSBDDEStream
  129. StartApp
  130. # Use VB shell command to start terminal emulator#
  131. # Return 0 if this fails
  132. Couldn't start 
  133. txtLinkControl_LinkNotify
  134. # When terminal emulator notifies VB of DDE data go get it
  135. # Prevent notify on DDE link
  136. # Get data from remote link - LinkRequest assigns to txtLinkControl.Text
  137. # then copy this to a temporary string - sTempString
  138. # Procedures to allow a valid login#
  139. # These received prompts must be the same for each login for the connections
  140. # to be successful.o
  141. # Check data stream for login prompt and then send useridf
  142. ogin:
  143. Establishing connection,  please wait
  144. #  If nothing appears to be happening,  uncomment the following line to show
  145. #  the emulation window and see if any input/activity. o
  146.  txtLinkControl.LinkExecute "[SHOW(1)]"
  147. # Check data stream for password prompt and then send password
  148. sword:
  149. # Check data stream for terminal type prompt and then send CRd
  150. # Check data stream for $ prompt and make TE visible and exit VB application
  151. [SHOW(1)]
  152. GoTo ExitForm
  153. # Procedures to handle problems at login
  154. # Check data stream for incorrect login/password, print message and exit VB and TE
  155. ncorrect
  156. Login or Password Incorrect
  157. Run program/script again
  158. # Close TE and unlink DDEa
  159. [ABORT]
  160. # Check data stream for password ageing, print message and exit VB to TE
  161. xpired
  162. Your password has expired
  163. exiting to Terminal Emulator
  164. [SHOW(1)]
  165. # Exit Options
  166. # Reset DDE to Notifye
  167. # Unlink DDE and close VBB
  168. txtUserId_Change
  169. # Accept UserID and enable password field and connect button
  170.