diff --git a/cidclient/CIDClient.PDM b/cidclient/CIDClient.PDM new file mode 100644 index 0000000..a23c36d --- /dev/null +++ b/cidclient/CIDClient.PDM @@ -0,0 +1,93 @@ +[Root] +Most Recent Package=CIDClient Script + + +[Package|CIDClient Script|Root] +SubWizProgID=PDWizard.SetupPkgSubWiz +BuildFolder=D:\Programming\cidclient\Package + +[Package|CIDClient Script|Configure DAO ISAMs] +Applicable=No + +[Package|CIDClient Script|Configure DAO ODBC] +JetWorkspace= +ODBCDirect= + +[Package|CIDClient Script|Files Found] + +[Package|CIDClient Script|Files Released] + +[Package|CIDClient Script|Missing Dependency Information] + +[Package|CIDClient Script|Out-of-Date Dependency Information] + +[Package|CIDClient Script|Files Added] +C:\WINDOWS\Fonts\lcd.ttf= + +[Package|CIDClient Script|Files Removed] + +[Package|CIDClient Script|Files In Project] +D:\Programming\cidclient\CIDClient.exe=Yes +C:\WINDOWS\system32\MSVBVM60.DLL=Yes +C:\WINDOWS\system32\OLEAUT32.DLL=Yes +C:\WINDOWS\system32\OLEPRO32.DLL=Yes +C:\WINDOWS\system32\ASYCFILT.DLL=Yes +C:\WINDOWS\system32\STDOLE2.TLB=Yes +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes +C:\WINDOWS\system32\MSWINSCK.OCX=Yes +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes +C:\WINDOWS\system32\VB6STKIT.DLL=Yes +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes +C:\WINDOWS\Fonts\lcd.ttf=Yes + +[Package|CIDClient Script|Configure Registry Files] +Applicable=No + +[Package|CIDClient Script|Configure Remote Servers] +Applicable=No + +[Package|CIDClient Script|Install Locations] +D:\Programming\cidclient\CIDClient.exe=$(AppPath) +C:\WINDOWS\system32\MSVBVM60.DLL=$(WinSysPathSysFile) +C:\WINDOWS\system32\OLEAUT32.DLL=$(WinSysPathSysFile) +C:\WINDOWS\system32\OLEPRO32.DLL=$(WinSysPathSysFile) +C:\WINDOWS\system32\ASYCFILT.DLL=$(WinSysPathSysFile) +C:\WINDOWS\system32\STDOLE2.TLB=$(WinSysPathSysFile) +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile) +C:\WINDOWS\system32\MSWINSCK.OCX=$(WinSysPath) +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath) +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath) +C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile) +C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath) +C:\WINDOWS\Fonts\lcd.ttf=$(Font) + +[Package|CIDClient Script|Configure Shared Files] +Applicable=Yes +D:\Programming\cidclient\CIDClient.exe=No + +[Package|CIDClient Script|Distribution] +Type=single +Size= +Title=CIDClient + +[Package|CIDClient Script|IconGroups] +Group0=CIDClient +PrivateGroup0=False +Parent0=$(Programs) + +[Package|CIDClient Script|CIDClient] +Icon1=CIDClient.exe +Title1=CIDClient Daemon +StartIn1=$(AppPath) +Key1=Icon1 + +[Package|CIDClient Script|Package] +PackageFolder=D:\Programming\cidclient\Package +ProjectFolder=D:\Programming\cidclient +ServerSideCab= +File1=D:\Programming\cidclient\Package\setup.exe +File2=D:\Programming\cidclient\Package\Setup.Lst +File3=D:\Programming\cidclient\Package\CIDClient.CAB +Handler1=PDWizard.FolderDplySubWiz +Handler2=PDWizard.WebPostDplySubWiz diff --git a/cidclient/CIDClient.vbp b/cidclient/CIDClient.vbp new file mode 100644 index 0000000..8065b61 --- /dev/null +++ b/cidclient/CIDClient.vbp @@ -0,0 +1,45 @@ +Type=Exe +Form=frmSock.frm +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation +Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX +Module=modMain; modMain.bas +Form=frmPopup.frm +Module=sysTrayMod; sysTrayMod.bas +IconForm="frmSock" +Startup="Sub Main" +HelpFile="" +Title="CIDClient" +ExeName32="CIDClient.exe" +Command32="" +Name="CIDClient" +HelpContextID="0" +CompatibleMode="0" +MajorVer=0 +MinorVer=1 +RevisionVer=0 +AutoIncrementVer=0 +ServerSupportFiles=0 +VersionComments="Use with CIDServ, the FreeBSD daemon written in C. http://www.theamigan.net/cid.html" +VersionCompanyName="KiwiSoft" +VersionFileDescription="Windows Client. X11 client also available." +VersionLegalCopyright="BSD License....(C)2003-2005, Dan Ponte" +VersionLegalTrademarks="None. I'm too cool for that bullshit." +VersionProductName="cidclient for Windows" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=0 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=0 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 + +[MS Transaction Server] +AutoRefresh=1 diff --git a/cidclient/CIDClient.vbw b/cidclient/CIDClient.vbw new file mode 100644 index 0000000..9c73ef9 --- /dev/null +++ b/cidclient/CIDClient.vbw @@ -0,0 +1,4 @@ +frmSock = 0, 0, 752, 387, , 110, 145, 862, 532, C +modMain = 132, 174, 884, 561, +frmPopup = 44, 58, 796, 445, , 22, 29, 774, 416, C +sysTrayMod = 110, 145, 862, 532, diff --git a/cidclient/COPYRIGHT.rtf b/cidclient/COPYRIGHT.rtf new file mode 100644 index 0000000..7100aad Binary files /dev/null and b/cidclient/COPYRIGHT.rtf differ diff --git a/cidclient/Ring.wav b/cidclient/Ring.wav new file mode 100644 index 0000000..2d1c72a Binary files /dev/null and b/cidclient/Ring.wav differ diff --git a/cidclient/cidclient.nsi b/cidclient/cidclient.nsi new file mode 100644 index 0000000..3deec2a --- /dev/null +++ b/cidclient/cidclient.nsi @@ -0,0 +1,212 @@ +; $Amigan: phoned/cidclient/cidclient.nsi,v 1.1 2005/06/23 02:29:18 dcp1990 Exp $ +!define PRODUCT_NAME "CIDClient" +!define PRODUCT_VERSION "0.1" +!define PRODUCT_PUBLISHER "Dan Ponte" +!define PRODUCT_WEB_SITE "http://www.theamigan.net/cid.html" +!define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\CIDClient.exe" +!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" +!define PRODUCT_UNINST_ROOT_KEY "HKLM" +!define PRODUCT_STARTMENU_REGVAL "NSIS:StartMenuDir" + +SetCompressor bzip2 + +; MUI 1.67 compatible ------ +!include "MUI.nsh" + +; MUI Settings +!define MUI_ABORTWARNING +!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico" +!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico" + +; Language Selection Dialog Settings +;!define MUI_LANGDLL_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}" +;!define MUI_LANGDLL_REGISTRY_KEY "${PRODUCT_UNINST_KEY}" +;!define MUI_LANGDLL_REGISTRY_VALUENAME "NSIS:Language" + +; Welcome page +!insertmacro MUI_PAGE_WELCOME +; License page +!define MUI_LICENSEPAGE_RADIOBUTTONS +!insertmacro MUI_PAGE_LICENSE "COPYRIGHT.rtf" +; Components page +!insertmacro MUI_PAGE_COMPONENTS +; Directory page +!insertmacro MUI_PAGE_DIRECTORY +; Start menu page +var ICONS_GROUP +!define MUI_STARTMENUPAGE_NODISABLE +!define MUI_STARTMENUPAGE_DEFAULTFOLDER "CIDClient" +!define MUI_STARTMENUPAGE_REGISTRY_ROOT "${PRODUCT_UNINST_ROOT_KEY}" +!define MUI_STARTMENUPAGE_REGISTRY_KEY "${PRODUCT_UNINST_KEY}" +!define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "${PRODUCT_STARTMENU_REGVAL}" +!insertmacro MUI_PAGE_STARTMENU Application $ICONS_GROUP +; Instfiles page +!insertmacro MUI_PAGE_INSTFILES +; Finish page +!define MUI_FINISHPAGE_RUN "$INSTDIR\CIDClient.exe" +!define MUI_FINISHPAGE_NOAUTOCLOSE +!insertmacro MUI_PAGE_FINISH + +; Uninstaller pages +!insertmacro MUI_UNPAGE_INSTFILES + +; Language files +!insertmacro MUI_LANGUAGE "English" + + +; Reserve files +!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS + +; MUI end ------ + +Name "${PRODUCT_NAME} ${PRODUCT_VERSION}" +OutFile "cidcSetup.exe" +InstallDir "$PROGRAMFILES\CIDClient" +InstallDirRegKey HKLM "${PRODUCT_DIR_REGKEY}" "" +ShowInstDetails show +ShowUnInstDetails show + + +Function DownloadFiles3 +NSISdl::download http://download.microsoft.com/download/vb60pro/Redist/sp5/WIN98Me/EN-US/vbrun60sp5.exe vbrun60sp5.exe +Pop $R0 ;Get the return value +StrCmp $R0 "success" +3 +FunctionEnd + +Function ConnectInternet +Push $R0 + +ClearErrors +Dialer::AttemptConnect +IfErrors noie3 + +Pop $R0 +StrCmp $R0 "online" connected +MessageBox MB_OK|MB_ICONSTOP "Cannot connect to the internet." +Quit + +noie3: + +; IE3 not installed +MessageBox MB_OK|MB_ICONINFORMATION "Please connect to the internet now. Setup needs to download and install VB runtime libraries." + +connected: +Pop $R0 +FunctionEnd + +Section "Main" SEC01 +SectionIn RO +IfFileExists "$SYSDIR\msvbvm60.dll" NoErrorMsg ErrorHere +ErrorHere: +Call ConnectInternet +Call DownloadFiles3 +Exec "$SYSDIR\vbrun60sp5.exe /Q" +NoErrorMsg: + SetOutPath "$INSTDIR" + SetOverwrite ifnewer + File "CIDClient.exe" + File "Ring.wav" + File "COPYRIGHT.txt" + File "faxmachine.ico" + File "fax.bmp" + File "CIDClient.exe.MANIFEST" + +; Shortcuts + !insertmacro MUI_STARTMENU_WRITE_BEGIN Application + CreateDirectory "$SMPROGRAMS\$ICONS_GROUP" + CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\CIDClient.lnk" "$INSTDIR\CIDClient.exe" + CreateShortCut "$SMPROGRAMS\Startup\CIDClient.lnk" "$INSTDIR\CIDClient.exe" + !insertmacro MUI_STARTMENU_WRITE_END +SectionEnd + +Section "Source" SEC02 + SetOutPath "$INSTDIR\src" + File "CIDClient.vbp" + File "Ring.wav" + File "modMain.bas" + File "frmSock.frx" + File "frmSock.frm" + File "frmPopup.frx" + File "frmPopup.frm" + File "faxmachine.ico" + File "fax.bmp" + File "CIDClient.vbw" + File "sysTrayMod.bas" + +; Shortcuts + !insertmacro MUI_STARTMENU_WRITE_BEGIN Application + !insertmacro MUI_STARTMENU_WRITE_END +SectionEnd + +Section -AdditionalIcons + SetOutPath $INSTDIR + !insertmacro MUI_STARTMENU_WRITE_BEGIN Application + WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}" + CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url" + CreateShortCut "$SMPROGRAMS\$ICONS_GROUP\Uninstall.lnk" "$INSTDIR\uninst.exe" + !insertmacro MUI_STARTMENU_WRITE_END +SectionEnd + +Section -Post + WriteUninstaller "$INSTDIR\uninst.exe" + WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\CIDClient.exe" + WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)" + WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe" + WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\CIDClient.exe" + WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}" + WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}" + WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}" +SectionEnd + +; Section descriptions +!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN + !insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "Main program" + !insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "VB6 source code" +!insertmacro MUI_FUNCTION_DESCRIPTION_END + + +Function un.onUninstSuccess + HideWindow + MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) was successfully removed from your computer." +FunctionEnd + +Function un.onInit + MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Are you sure you want to completely remove $(^Name) and all of its components?" IDYES +2 + Abort +FunctionEnd + +Section Uninstall + !insertmacro MUI_STARTMENU_GETFOLDER "Application" $ICONS_GROUP + Delete "$INSTDIR\${PRODUCT_NAME}.url" + Delete "$INSTDIR\uninst.exe" + Delete "$INSTDIR\src\sysTrayMod.bas" + Delete "$INSTDIR\src\CIDClient.vbw" + Delete "$INSTDIR\src\fax.bmp" + Delete "$INSTDIR\src\faxmachine.ico" + Delete "$INSTDIR\src\frmPopup.frm" + Delete "$INSTDIR\src\frmPopup.frx" + Delete "$INSTDIR\src\frmSock.frm" + Delete "$INSTDIR\src\frmSock.frx" + Delete "$INSTDIR\src\modMain.bas" + Delete "$INSTDIR\src\Ring.wav" + Delete "$INSTDIR\src\CIDClient.vbp" + Delete "$INSTDIR\CIDClient.exe.MANIFEST" + Delete "$INSTDIR\fax.bmp" + Delete "$INSTDIR\faxmachine.ico" + Delete "$INSTDIR\COPYRIGHT.txt" + Delete "$INSTDIR\Ring.wav" + Delete "$INSTDIR\CIDClient.exe" + + Delete "$SMPROGRAMS\$ICONS_GROUP\Uninstall.lnk" + Delete "$SMPROGRAMS\$ICONS_GROUP\Website.lnk" + Delete "$STARTMENU\Startup.lnk" + Delete "$SMPROGRAMS\$ICONS_GROUP\CIDClient.lnk" + + RMDir "$SMPROGRAMS\$ICONS_GROUP" + RMDir "$INSTDIR\src" + RMDir "$INSTDIR" + + DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" + DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}" + SetAutoClose true +SectionEnd diff --git a/cidclient/fax.bmp b/cidclient/fax.bmp new file mode 100644 index 0000000..683a0fe Binary files /dev/null and b/cidclient/fax.bmp differ diff --git a/cidclient/faxmachine.ico b/cidclient/faxmachine.ico new file mode 100644 index 0000000..6e525a2 Binary files /dev/null and b/cidclient/faxmachine.ico differ diff --git a/cidclient/frmPopup.frm b/cidclient/frmPopup.frm new file mode 100644 index 0000000..a778b2c --- /dev/null +++ b/cidclient/frmPopup.frm @@ -0,0 +1,182 @@ +VERSION 5.00 +Begin VB.Form frmPopup + BorderStyle = 1 'Fixed Single + Caption = "Incoming Call" + ClientHeight = 3210 + ClientLeft = 45 + ClientTop = 435 + ClientWidth = 4695 + ControlBox = 0 'False + Icon = "frmPopup.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 3210 + ScaleWidth = 4695 + StartUpPosition = 3 'Windows Default + Begin VB.CommandButton telemarketer + Caption = "Telemarketer-ize" + Height = 255 + Left = 1680 + TabIndex = 6 + Top = 2280 + Width = 1455 + End + Begin VB.Timer Timer1 + Interval = 1000 + Left = 3960 + Top = 1440 + End + Begin VB.CommandButton cmdOK + Caption = "&OK" + Default = -1 'True + Height = 495 + Left = 120 + TabIndex = 5 + Top = 2640 + Width = 4455 + End + Begin VB.Shape Shape1 + BorderColor = &H80000001& + FillColor = &H80000003& + FillStyle = 0 'Solid + Height = 375 + Index = 1 + Left = 4200 + Shape = 3 'Circle + Top = 120 + Width = 375 + End + Begin VB.Shape Shape1 + BorderColor = &H80000001& + FillColor = &H80000003& + FillStyle = 0 'Solid + Height = 375 + Index = 0 + Left = 120 + Shape = 3 'Circle + Top = 120 + Width = 375 + End + Begin VB.Label lblTime + Caption = "14:30" + BeginProperty Font + Name = "Arial" + Size = 15.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Left = 1080 + TabIndex = 4 + Top = 1200 + Width = 855 + End + Begin VB.Label lblDate + Caption = "01/01" + BeginProperty Font + Name = "Arial" + Size = 15.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Left = 2880 + TabIndex = 3 + Top = 1200 + Width = 855 + End + Begin VB.Label lblNumb + Caption = "(###) ###-####" + BeginProperty Font + Name = "Arial" + Size = 27.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 735 + Left = 240 + TabIndex = 2 + Top = 1680 + Width = 4455 + End + Begin VB.Label lblName + Caption = "John Smith" + BeginProperty Font + Name = "MS Sans Serif" + Size = 18 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Left = 1200 + TabIndex = 1 + Top = 720 + Width = 3375 + End + Begin VB.Label Label1 + Alignment = 2 'Center + Caption = "Incoming Call" + BeginProperty Font + Name = "Verdana" + Size = 24 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 615 + Left = 600 + TabIndex = 0 + Top = 0 + Width = 3375 + End + Begin VB.Image Image1 + Height = 855 + Left = 120 + Picture = "frmPopup.frx":5C12 + Stretch = -1 'True + Top = 600 + Width = 855 + End +End +Attribute VB_Name = "frmPopup" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Dim number As Integer + +Private Sub cmdOK_Click() +Timer1.Enabled = False +number = 0 +frmPopup.Hide +End Sub + + +Private Sub telemarketer_Click() + frmSock.wsController.SendData "AHU" & Chr(10) +End Sub + +Private Sub Timer1_Timer() + number = number + 1 + If number = 15 Then + number = 0 + Timer1.Enabled = False + frmPopup.Hide + End If + frmPopup.Caption = "Incoming Call (" & 15 - number & ")" +End Sub diff --git a/cidclient/frmPopup.frx b/cidclient/frmPopup.frx new file mode 100644 index 0000000..eda8f5c Binary files /dev/null and b/cidclient/frmPopup.frx differ diff --git a/cidclient/frmSock.frm b/cidclient/frmSock.frm new file mode 100644 index 0000000..8e84e5c --- /dev/null +++ b/cidclient/frmSock.frm @@ -0,0 +1,143 @@ +VERSION 5.00 +Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX" +Begin VB.Form frmSock + BorderStyle = 1 'Fixed Single + Caption = "CIDClient" + ClientHeight = 2625 + ClientLeft = 150 + ClientTop = 840 + ClientWidth = 4530 + ControlBox = 0 'False + Icon = "frmSock.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 2625 + ScaleWidth = 4530 + StartUpPosition = 3 'Windows Default + Visible = 0 'False + Begin MSWinsockLib.Winsock wsController + Left = 480 + Top = 0 + _ExtentX = 741 + _ExtentY = 741 + _Version = 393216 + Protocol = 1 + RemotePort = 1450 + End + Begin MSWinsockLib.Winsock UDPListener + Left = 0 + Top = 0 + _ExtentX = 741 + _ExtentY = 741 + _Version = 393216 + Protocol = 1 + End + Begin VB.Menu mnuST + Caption = "mnuST" + Begin VB.Menu mnuSetServ + Caption = "&Set Server" + End + Begin VB.Menu mnuExit + Caption = "&Exit" + End + Begin VB.Menu mnuChgPrt + Caption = "&About" + End + End +End +Attribute VB_Name = "frmSock" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Dim lastdata As String +Private Declare Function sndPlaySound Lib "winmm.dll" _ +Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ +ByVal uFlags As Long) As Long + +Public nome, number, dte, tme, code As String + +Private Sub mnuChgPrt_Click() +MsgBox "CIDClient by Dan Ponte" & Chr(13) & "Displays CallerID on UDP Packets generated by the" _ + & Chr(13) & "modem server for Unix. BSD Style." +End Sub + +Private Sub mnuExit_Click() +frmSock.UDPListener.Close +Form_Unload (0) +End +End Sub + +Public Sub mnuSetServ_Click() + Dim thehost As String + thehost = InputBox("Server IP/host?", "CIDClient", wsController.RemoteHost) + If thehost = "" Then Exit Sub + wsController.RemoteHost = thehost + SaveSetting "CIDClient", "Main", "host", thehost +End Sub + +'Format: +'DATE:TIME:CODE:NAME:NUMBER +Private Sub UDPListener_Error(ByVal number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) +MsgBox number & ":" & Description +End Sub +Private Sub UDPListener_DataArrival(ByVal bytesTotal As Long) +On Error Resume Next + UDPListener.GetData lastdata + If Left(lastdata, 4) = "RING" Then + SoundFile = App.Path & "\RING.WAV" + Result = sndPlaySound(SoundFile, 1) + Else + dte = Split(lastdata, ":")(0) + tme = Split(lastdata, ":")(1) + code = Split(lastdata, ":")(2) + nome = Split(lastdata, ":")(3) + number = Split(lastdata, ":")(4) + popupWindow dte, tme, code, number, nome + End If +End Sub +Public Sub popupWindow(ByVal pdt As String, ByVal ptm As String, ByVal cde As String, ByVal num As String, ByVal nom As String) + frmPopup.lblName = nom + frmPopup.lblNumb = Format(num, "(###) ###-####") + frmPopup.lblTime = Format(ptm, "##:##") + frmPopup.lblDate = Format(pdt, "##/##") + frmPopup.Show + frmPopup.Timer1 = True + frmPopup.ZOrder 0 +End Sub +'THIS MAKES THE MENU POPUP WHEN THE FORM IS HIDDEN IN THE SYSTRAY' +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) +Dim Sys As Long +Sys = x / Screen.TwipsPerPixelX +Select Case Sys +Case WM_RBUTTONDOWN: +Me.PopupMenu mnuST +End Select +End Sub + +'THIS MAKES THE FOR DISSAPEAR/MINIMIZE TO THE SYSTRAY' +Public Sub Form_Resize() +If WindowState = vbMinimized Then +Me.Hide +Me.Refresh +With nid +.cbSize = Len(nid) +.hwnd = Me.hwnd +.uId = vbNull +.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE +.uCallBackMessage = WM_MOUSEMOVE +.hIcon = Me.Icon +.szTip = Me.Caption & vbNullChar +End With +Shell_NotifyIcon NIM_ADD, nid +Else +Shell_NotifyIcon NIM_DELETE, nid +End If +End Sub + +'THIS WILL KILL THE SYSTRAY ICON IF THE FORM IS UNLOADED' +Private Sub Form_Unload(Cancel As Integer) +Shell_NotifyIcon NIM_DELETE, nid +End +End Sub diff --git a/cidclient/frmSock.frx b/cidclient/frmSock.frx new file mode 100644 index 0000000..9945bf2 Binary files /dev/null and b/cidclient/frmSock.frx differ diff --git a/cidclient/modMain.bas b/cidclient/modMain.bas new file mode 100644 index 0000000..cfcec51 --- /dev/null +++ b/cidclient/modMain.bas @@ -0,0 +1,22 @@ +Attribute VB_Name = "modMain" +Sub main() +Dim thehost As String +frmSock.UDPListener.Close +frmSock.UDPListener.LocalPort = 3890 +frmSock.UDPListener.Bind 3890 +thehost = GetSetting("CIDClient", "Main", "host", "buhwhy?") +If thehost = "buhwhy?" Then +ths: +thehost = InputBox("Server IP/host?", "CIDClient") + If thehost = "" Then MsgBox "Needs Host": GoTo ths + frmSock.wsController.RemoteHost = thehost + SaveSetting "CIDClient", "Main", "host", thehost + Else + frmSock.wsController.RemoteHost = thehost + End If + +'frmSock.Hide +frmSock.WindowState = vbMinimized +frmSock.Show +frmSock.Form_Resize +End Sub diff --git a/cidclient/sysTrayMod.bas b/cidclient/sysTrayMod.bas new file mode 100644 index 0000000..bc382c7 --- /dev/null +++ b/cidclient/sysTrayMod.bas @@ -0,0 +1,36 @@ +Attribute VB_Name = "sysTrayMod" +'EVERY THING IN THIS MODULE MAKES THE SYSTRAY ICON PROGRAMME WORK' +'SO YOU WILL NEED IT ALL,YOU MIGHT NOT USE IT ALL BUT JUST LEAVE IT IN' +Option Explicit + +Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean + +Public Const NIM_ADD = &H0 +Public Const NIM_MODIFY = &H1 +Public Const NIM_DELETE = &H2 +Public Const NIF_MESSAGE = &H1 +Public Const NIF_ICON = &H2 +Public Const NIF_TIP = &H4 +Public Const WM_MOUSEMOVE = &H200 +Public Const WM_LBUTTONDOWN = &H201 +Public Const WM_LBUTTONUP = &H202 +Public Const WM_LBUTTONDBLCLK = &H203 +Public Const WM_RBUTTONDOWN = &H204 +Public Const WM_RBUTTONUP = &H205 +Public Const WM_RBUTTONDBLCLK = &H206 +Public Const HWND_TOPMOST = -1 + +Public nid As NOTIFYICONDATA + +Public Type NOTIFYICONDATA +cbSize As Long +hwnd As Long +uId As Long +uFlags As Long +uCallBackMessage As Long +hIcon As Long +szTip As String * 64 +End Type + + +