Telnet客户端

开发平台：

Visual Basic

itra.bas：源码内容

							Attribute VB_Name = "Module1"
'multiuser
Public User As String
'API DEFS
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As _
       Long, _
       ByVal hWndInsertAfter As Integer, _
       ByVal X As Integer, ByVal Y As Integer, _
       ByVal cx As Integer, ByVal cy As Integer, _
       ByVal wFlags As Integer) As Integer
       Global Const SWP_NOMOVE = 2
       Global Const SWP_NOSIZE = 1
       Global Const WndFlags = SWP_NOMOVE Or SWP_NOSIZE
       Global Const HWND_TOPMOST = -1
       Global Const HWND_NOTOPMOST = -2
'Soundplay
Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Global Const SYNC = 1
'quicktip
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

						