Cidclient
This commit is contained in:
dcp1990
parent
f26ca5da9f
commit
7c38aa993b
93
cidclient/CIDClient.PDM
Normal file
93
cidclient/CIDClient.PDM
Normal file
@ -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
|
||||
45
cidclient/CIDClient.vbp
Normal file
45
cidclient/CIDClient.vbp
Normal file
@ -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
|
||||
4
cidclient/CIDClient.vbw
Normal file
4
cidclient/CIDClient.vbw
Normal file
@ -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,
|
||||
BIN
cidclient/COPYRIGHT.rtf
Normal file
BIN
cidclient/COPYRIGHT.rtf
Normal file
Binary file not shown.
BIN
cidclient/Ring.wav
Normal file
BIN
cidclient/Ring.wav
Normal file
Binary file not shown.
212
cidclient/cidclient.nsi
Normal file
212
cidclient/cidclient.nsi
Normal file
@ -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
|
||||
BIN
cidclient/fax.bmp
Normal file
BIN
cidclient/fax.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.3 KiB |
BIN
cidclient/faxmachine.ico
Normal file
BIN
cidclient/faxmachine.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 23 KiB |
182
cidclient/frmPopup.frm
Normal file
182
cidclient/frmPopup.frm
Normal file
@ -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
|
||||
BIN
cidclient/frmPopup.frx
Normal file
BIN
cidclient/frmPopup.frx
Normal file
Binary file not shown.
143
cidclient/frmSock.frm
Normal file
143
cidclient/frmSock.frm
Normal file
@ -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
|
||||
BIN
cidclient/frmSock.frx
Normal file
BIN
cidclient/frmSock.frx
Normal file
Binary file not shown.
22
cidclient/modMain.bas
Normal file
22
cidclient/modMain.bas
Normal file
@ -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
|
||||
36
cidclient/sysTrayMod.bas
Normal file
36
cidclient/sysTrayMod.bas
Normal file
@ -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
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user