Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"
If FileSys.DirectoryExists(str) Then
filesys.DeleteDirectory(str,2,2)
End If
If TryConnectHost("192.168.44.100") Then
shell( "net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator",0)
Dim sucess As Boolean = False
successmu = new System.Threading.Mutex(True, "dsafads", sucess)
If not sucess Then
e.HideSplashForm = True
FileSys.WriteAllText("e:\open.txt","a",False)
e.Cancel = True
End If
Else
e.HideSplashForm = True
MessageBox.Show("系统不能连接到社内主机," & vbcrlf & vbcrlf & "如在社内使用电脑请联系!", "提示")
e.Cancel = True
End If
If FileSys.DirectoryExists("\\192.168.44.202\e\更新包\系统") Then
If Syscmd.Project.Update(False,False) = False Then
For Each dt As DataTable In DataTables
dt.GlobalHandler.BeforeLoad = True
dt.GlobalHandler.BeforeSaveDataRow = True
dt.GlobalHandler.BeforeDeleteDataRow = True
dt.GlobalHandler.BeforeAddDataRow = True
Next
E:
'baseMainform.visible=False
Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
OutPut.Show( HostName ) '本机机器名
OutPut.Show(IPAdress.ToString ) '本机的IP
Vars("ipaddrss") = IPAdress.ToString
Dim dr As DataRow = DataTables("tbfcpclist").Find("ipaddress = '" & IPAdress.Tostring & "'")
If dr IsNot Nothing Then
Vars("user") = dr("username")
Vars("mail") = dr("mailaddress")
Dim lastrow As Long '日程表加载上次的数据
If dr("日程明细") Is Nothing Then
dr("日程明细") = 0
lastrow = 0
Else
lastrow = dr("日程明细")
End If
Vars("lastrow") = lastrow
'重新加载
If lastrow > 0 Then
DataTables("日程明细").LoadFilter = "_identify <= '" & lastrow & "'"
Else
DataTables("日程明细").LoadFilter = ""
End If
DataTables("日程明细").Load
DataTables("信息查阅情况").LoadFilter = "人名 = '" & Vars("user") & "' and 状态 = 0 "
DataTables("信息查阅情况").Load
' End If
Tables("tbfcpclist").Sort = "group ,username "
For Each drr As Row In Tables("tbfcpclist").Rows
drr("useranddepartment") =drr("department") & " | " & drr("username")
Next
MainTable = Tables("日程明细")
AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件
'nfi.ContextMenuStrip = cms
nfi.Text = "TBFC OA" '鼠标移上去显示的文本
nfi.Icon = new Icon(ProjectPath & "\Images\001.ico") '图标地址
Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("打开",GetImage(projectpath & "\images\会议管理图标.png")) '定义一个菜单选项(带图标)
AddHandler tsmi1 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件
Dim tsmi2 As new System.Windows.Forms.ToolStripMenuItem("退出",GetImage(projectpath & "\images\Reject.ico")) '定义一个菜单选项
AddHandler tsmi2 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件
cms.Items.Add(tsmi1) '为全局变量CMS 也就是右键菜单添加 "菜单一"
cms.Items.Add(tsmi2) '为全局变量CMS 也就是右键菜单添加 "菜单二"
nfi.ContextMenuStrip = cms
nfi.Visible = True '设置为显示
BasemainForm.ShowInTaskBar = False '任务栏不显示
Vars("网络状态") = True
Dim drpf As DataRow = DataTables("个人日志").Find("人员 = '" & Vars("user") & "'")
If drpf Is Nothing Then
Dim dr1 As DataRow = DataTables("个人日志").AddNew()
dr1("人员") = Vars("user")
Dim dr2 As DataRow = DataTables("个人日志").AddNew()
dr2("人员") = Vars("user")
Dim dr3 As DataRow = DataTables("个人日志").AddNew()
dr3("人员") = Vars("user")
Dim dr4 As DataRow = DataTables("个人日志").AddNew()
dr4("人员") = Vars("user")
End If
DataTables("个人日志").Save
Tables("个人日志").Filter = "人员 = '" & Vars("user") & "'"
Tables("日志紧急情况").Sort = " 紧急程度 "
Vars("width") = 1026
Vars("height") = 732
Forms("mainform").Open
Else
MessageBox.Show("IP地址:" & Vars("ipaddrss") & ",请联系添加该电脑权限!")
Syscmd.Project.Exit(False)
Return
End If
End If
Else
GOTO E
End If
加好友 
发短信
Post By：2016/4/7 8:55:00 [只看该作者]
