• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

psiico

[Open Source] System Scheduler

27 mensagens neste tópico

Boas pessoal,

bem,nao vinha aqui á exactamente mt tempo, simplesmente porque nao tinha net, nao tinha onde ir a net e tava a dar em doido! mudanças de casa e tal XD voçes compreendem!

Mas durante, este tempo todo, entretanto fiz esta brincadeira no Vb 6, vejam se gostam...

com este programa dá para programar algumas acções do Pc entre elas: encerramento, logout, bloquear o acesso ao PC durante um periodo de tempo, etc...

O programa vem com a opção para minimizar para o System Tray,mas caso nao tenham façam download do: system scheduler(sem systray).zip caso contrario o: system scheduler(com systray).zip

EDIT: Implementei um sistema de actualizações, para o programa, vejam se funciona sff :confused:

PS: Updater, com o Systray.OCX, caso queiram a versao sem, avisem sff

FeedBack plz? :P

ACTUALIZAÇÕES JA DISPONIVEIS!

espero respostas :)

SCREENSHOT (re-uploaded):

semttulody7.jpg

------------------------------

Changelog:

v 1.11

Opção de Sair no menu arranjada

------------------------------

Traduzido para portugues, pela equipa de traduções #2

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

junta ai o systray.ocx à versão c/ systray, aqui está a pedir isso :P

ainda não testei bem a fundo mas parece ser fixolas :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

yah, já agora dantes quando tinha happy hours tinha um prog parecido com este, mas dava para encerrar uma aplicação a uma determinada hora... não consegues incluir isso neste? penso que era uma boa opção  :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

outra ideia que me surgiu agora foi de pores o programa a criar o proprio bat para arrancar varios programas ao mesmo tempo :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois,ou a explicar como se faz,porque eu ao criar esse sistema, vou limitar o user a x programas a correr em simultaneo XD ou entao, ponho mais que 1 text para mais que 1 programa a correr ao mesmo tempo, XD

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não sei se o problema é meu mas duvido que seja. Abro o programa e carrego no botão "Save" (faça alguma alteração ou não), em seguida fecho o programa e quando o tento abrir de novo da-me o seguinte erro:

´Text' property is read-only

E só o sou capas de abrir novamente quando apago o ficheiro data.ssdata

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não sei se o problema é meu mas duvido que seja. Abro o programa e carrego no botão "Save" (faça alguma alteração ou não), em seguida fecho o programa e quando o tento abrir de novo da-me o seguinte erro:

´Text' property is read-only

E só o sou capas de abrir novamente quando apago o ficheiro data.ssdata

Cumps

antes de mais, obrigado por veres o meu mini programa... aqui e possivelmente com o Soulsick nao tivemos esse tipo de problema... alterei de uma text para 1 label,que faz a mesma coisa... ve se há algum problema sff ;)

ja agora, o exe vai com a opção do Systray.OCX se nao fizest download do component, pedia-te se faz favor :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

estás a usar alguma classe psiico? se tiveres podes ter uma propriedade readonly.. e da erro quando tenta atribuir o valor...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu axo k nao tou a usar nada disso,mas ve ;) o codigo ja tem coisas da cena de terminar os processos a x tempo, por isso s encontrares coisas assim do ar,nao ligues XD

Option Explicit
Dim Length As Long
Dim buf As String * 256
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Dim s, l, e, i, f, k, teste As String
Dim stemp1, stemp2, ltemp1, ltemp2, etemp1, etemp2, itemp1, itemp2, ftemp1, ftemp22, dias, systray, accao, ktemp1, ktemp2, bla As Integer

Private Sub Check7_Click()
If Check7.Value = "1" Then
Text2.Enabled = True
Else
Text2.Enabled = False
End If
End Sub

Private Sub Command6_Click()
If Check5.Value = "1" Then
        WritePrivateProfileString _
        "settings", "days", _
        "1", App.Path & "\data.ssdata"
Else
        WritePrivateProfileString _
        "settings", "days", _
        "0", App.Path & "\data.ssdata"
End If
If Check6.Value = "1" Then
        WritePrivateProfileString _
        "settings", "systray", _
        "1", App.Path & "\data.ssdata"
Else
        WritePrivateProfileString _
        "settings", "systray", _
        "0", App.Path & "\data.ssdata"
End If
MsgBox "Your settings has been saved!", vbInformation
End Sub

Private Sub Command8_Click()
l = Combo11.Text & ":" & Combo12.Text & ":00"
        WritePrivateProfileString _
        "settings", "k1", _
        Combo11.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "k2", _
        Combo12.Text, App.Path & "\data.ssdata"
MsgBox ("Kill process time Set up!"), vbInformation
End Sub

Private Sub Form_Load()
App.TaskVisible = False
Length = GetPrivateProfileString( _
        "settings", "s1", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        stemp1 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "s2", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        stemp2 = Left$(buf, Length)
        
        
Length = GetPrivateProfileString( _
        "settings", "l1", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        ltemp1 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "l2", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        ltemp2 = Left$(buf, Length)

Length = GetPrivateProfileString( _
        "settings", "e1", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        etemp1 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "e2", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        etemp2 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "i1", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        itemp1 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "i2", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        itemp2 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "f1", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        ftemp1 = Left$(buf, Length)
        
Length = GetPrivateProfileString( _
        "settings", "f2", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
txtf2.Text = Left$(buf, Length)

Length = GetPrivateProfileString( _
        "settings", "days", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        dias = Left$(buf, Length)
Length = GetPrivateProfileString( _
        "settings", "systray", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
systray = Left$(buf, Length)
Length = GetPrivateProfileString( _
        "settings", "k1", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
        ktemp1 = Left$(buf, Length)

If dias = "1" Then
Combo1.Text = stemp1
Combo2.Text = stemp2
Combo3.Text = ltemp1
Combo4.Text = ltemp2
Combo6.Text = etemp1
Combo5.Text = etemp2
Combo7.Text = itemp1
Combo8.Text = itemp2
Combo10.Text = ftemp1
Combo9.Text = txtf2.Text
Check5.Value = "1"
End If
If systray = "1" Then
cSysTray1.InTray = True
Me.Hide
Check6.Value = "1"
End If
Length = GetPrivateProfileString( _
        "settings", "timer", "<no value>", _
        buf, Len(buf), App.Path & "\data.SSdata")
Dim timer As String
timer = Left$(buf, Length)
If timer = "1" Then
Check4.Value = "1"
i = Combo7.Text & ":" & Combo8.Text & ":00"
f = Combo10.Text & ":" & Combo9.Text & ":00"
        WritePrivateProfileString _
        "settings", "i1", _
        Combo7.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "i2", _
        Combo8.Text, App.Path & "\data.ssdata"
        
        
        WritePrivateProfileString _
        "settings", "f1", _
        Combo10.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "f2", _
        Combo9.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "accao", _
        accao, App.Path & "\data.ssdata"
        If accao = "1" Then
        Option1.Value = True
        End If
If accao = "2" Then
        Option2.Value = True
        End If
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.Enabled = True
Command1.Enabled = True
Else
Text1.Enabled = False
Command1.Enabled = False
End If
End Sub

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
s = Combo1.Text & ":" & Combo2.Text & ":00"
WritePrivateProfileString _
        "settings", "s1", _
        Combo1.Text, App.Path & "\data.ssdata"
        
WritePrivateProfileString _
        "settings", "s2", _
        Combo2.Text, App.Path & "\data.ssdata"
MsgBox ("Shutdown Time Set up!"), vbInformation
End Sub

Private Sub Command3_Click()
l = Combo3.Text & ":" & Combo4.Text & ":00"
        WritePrivateProfileString _
        "settings", "l1", _
        Combo3.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "l2", _
        Combo4.Text, App.Path & "\data.ssdata"
MsgBox ("Login Time Set up!"), vbInformation
End Sub

Private Sub Command5_Click()
If MsgBox("This option, when activated will block the access of the PC during the time you have specified!" & vbCrLf & "Do you really want to set the time of it?", vbQuestion + vbYesNo) = vbYes Then
i = Combo7.Text & ":" & Combo8.Text & ":00"
f = Combo10.Text & ":" & Combo9.Text & ":00"
        WritePrivateProfileString _
        "settings", "i1", _
        Combo7.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "i2", _
        Combo8.Text, App.Path & "\data.ssdata"
        
        
        WritePrivateProfileString _
        "settings", "f1", _
        Combo10.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "f2", _
        Combo9.Text, App.Path & "\data.ssdata"
MsgBox ("Block Access to PC Time Set up!"), vbInformation

End If
End Sub

Private Sub Command4_Click()
e = Combo6.Text & ":" & Combo5.Text & ":00"
        WritePrivateProfileString _
        "settings", "e1", _
        Combo6.Text, App.Path & "\data.ssdata"
        
        WritePrivateProfileString _
        "settings", "e2", _
        Combo5.Text, App.Path & "\data.ssdata"
MsgBox ("execute program Time Set up!"), vbInformation
End Sub

Private Sub cSysTray1_MouseDblClick(Button As Integer, Id As Long)
Form1.Show
cSysTray1.InTray = False
End Sub

Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
PopupMenu op2
End Sub

Private Sub exit_Click()
End
End Sub





Private Sub Form_Unload(Cancel As Integer)
If Check4.Value = "1" Then
        WritePrivateProfileString _
        "settings", "timer", _
        "1", App.Path & "\data.ssdata"
Else
        WritePrivateProfileString _
        "settings", "timer", _
        "0", App.Path & "\data.ssdata"
        End If

End Sub

Private Sub leave_Click()
If MsgBox("Are you sure want to exit?", vbQuestion + vbYesNo) = vbYes Then
If Check4.Value = "1" Then
        WritePrivateProfileString _
        "settings", "timer", _
        "1", App.Path & "\data.ssdata"
        If Option1.Value = True Then
        WritePrivateProfileString _
        "settings", "accao", _
        "1", App.Path & "\data.ssdata"
        End If
        If Option2.Value = True Then
        WritePrivateProfileString _
        "settings", "accao", _
        "2", App.Path & "\data.ssdata"
        End If
Else
        WritePrivateProfileString _
        "settings", "timer", _
        "0", App.Path & "\data.ssdata"
        End If
End If
End
End Sub

Private Sub open_Click()
Form1.Show
cSysTray1.InTray = False
End Sub

Private Sub Timer1_Timer()
If Check1.Value = "1" And s = Time$ Then
Shell ("shutdown -s -t 5 -f")
End If
If Check2.Value = "1" And l = Time$ Then
Shell ("logoff.exe")
End If
If Check4.Value = "1" And i < Time$ And f > Time$ Then
If Option1.Value = True Then
Shell ("shutdown -s -t 5 -f")
End If
If Option2.Value = True Then
Shell ("logoff.exe")
End If
End If
If Check3.Value = "1" And Time$ = e Then
Shell (Text1.Text)
End If
End Sub

Aqui tens

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois mas qdo faz o form_load tentas atribuir um valor a combobox o erro deve estar ai :x

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois deve ser isso :S ou melhor,so pode :S mas eu nunca tive este tipo de problemas..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Qualquer erro com a tradução para português do programa é favor enviar para mim :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só uma pequena correcção...

Quando metes "Exit" e ele pergunta se queres mesmo sair, se eu clicar nao, ele sai na mesma!!

Uma "mariquice" sem importância.. mas convém corrigir :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

a mim também me dá erro, será de estar a correr numa conta limitada?

q erro?!?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

q erro?!?

"Component 'SysTray.OCX' or one of its dependencies not correctly registered: a file is missing or invalid"

e também dá na conta de admin...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites