Please Help me in my Problem

lordcedrich
07-22-2006, 01:18 AM
made my software w/c allowing to recieve a file into a bluetooth device and has a screen saver w/c serves as my seciruty but when i tried to run my screen saver my pc stops recieving a file in a bluetooth device, does anyone knows the problem of my software ...I also make my software visible to systray but its still not working


When i run the Screen saver the bluetooth stops and when i stopped the screen saver it resumes ....Its like its only allows only 1 program to run and not 2 program at the same time


I hope someone could help me

This is the code of my screen saver

Option Explicit
Const PI = 3.14159
Dim sHari As String
Dim aHari

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
frmMain.Timer1.Enabled = True
ProgramActivation
Set frmScreenSaver = Nothing
End Sub

Private Sub Timer1_Timer()
lblTekan = ""
End Sub

Private Sub Form_Load()
Dim res
'I made this array to translate name of day to Indonesia
'language. You can change this array elemen to your
'country language. Start from Sunday...
aHari = Array("Sunday", "Monday", "Tuesday", "Wednesday", _
"Thursday", "Friday", "Saturday")
sHari = aHari(Abs(Weekday(Date) - 1))
frmMain.Caption = "BlueKey v 1.0"
frmMain.Timer1.Enabled = False
Timer1.Enabled = True
DoEvents
Label1.Caption = "" & sHari & ", " _
& Format(Date, "mmmm dd yyyy")
Label2.Caption = Format(Time, "hh:mm:ss")
DoEvents
App.HelpFile = ""
res = SetWindowPos(frmScreenSaver.hWnd, _
HWND_TOPMOST, 0, 0, 0, 0, _
flags)
End Sub

Private Sub Form_Click()
If frmSetting.ScreenSaverPassword.Value = 1 Then
frmPassword.Show 1
Else
Unload Me
Set frmScreenSaver = Nothing
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If frmSetting.ScreenSaverPassword.Value = 1 Then
frmPassword.Show 1
Else
Unload Me
Set frmScreenSaver = Nothing
End If
End Sub

Public Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblTekan.Caption = "Press any key or click your mouse on this screen to exit..."
End Sub

Private Sub tmrQuartz_Timer()
Dim Hours As Single, Minutes As Single, Seconds As Single
Dim TrueHours As Single
sHari = aHari(Abs(Weekday(Date) - 1))
Label1.Caption = "" & sHari & ", " _
& Format(Date, "mmmm dd yyyy")
Label2.Caption = Format(Time, "hh:mm:ss")
Hours = Hour(Time)
Minutes = Minute(Time)
Seconds = Second(Time)
'I got this code (Analog Clock) from
'M. Thaha Husain.
'Thanks to Husain!
TrueHours = Hours + Minutes / 60
LineHour.X2 = 750 * Cos(PI / 180 * (30 * TrueHours - 90)) + LineHour.X1
LineHour.Y2 = 750 * Sin(PI / 180 * (30 * TrueHours - 90)) + LineHour.Y1
LineMinute.X2 = 1050 * Cos(PI / 180 * (6 * Minutes - 90)) + LineHour.X1
LineMinute.Y2 = 1050 * Sin(PI / 180 * (6 * Minutes - 90)) + LineHour.Y1
LineSecond.X2 = 1100 * Cos(PI / 180 * (6 * Seconds - 90)) + LineHour.X1
LineSecond.Y2 = 1100 * Sin(PI / 180 * (6 * Seconds - 90)) + LineHour.Y1
End Sub

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum