Option Explicit
Private loginMgr As DCLOGINMGRLib.DcLoginManager
Private sessionId As String
Sub main()
Dim frm As Form1
Set loginMgr = New DCLOGINMGRLib.DcLoginManager
' if no session, login
If (sessionId = "") Then
sessionId = loginMgr.Connect("", "", "", "", 0)
End If
' if still no session, error out
If (sessionId = "") Then
MsgBox "Could not Log In.", vbCritical, "Could Not Log In"
Set loginMgr = Nothing
End
Else
' call up form
Set frm = New Form1
frm.sessionId = sessionId
frm.Show vbModal
Set frm = Nothing
End If
loginMgr.disconnect (sessionId)
Set loginMgr = Nothing
End Sub
Ynt: Vb De Bazı Kodlar By: melek_03 Date: May 04, 2010, 06:34:03 PM
Emeğine sağlık..
Ynt: Vb De Bazı Kodlar By: sibeL* Date: May 04, 2010, 06:34:40 PM
Emeğine Sağlık
