Hauppauge ir config maker

Télécharger le projet
Commenter

Description

Private Sub Command1_Click()
EcrireINI "DEFAULT", "CHNLUP", Text1.Text
EcrireINI "DEFAULT", "CHNLDOWN", Text2.Text
EcrireINI "DEFAULT", "VOLUP", Text3.Text
EcrireINI "DEFAULT", "VOLDOWN", Text4.Text
EcrireINI "DEFAULT", "RADIO", Text5.Text
EcrireINI "DEFAULT", "TV", Text6.Text
EcrireINI "DEFAULT", "SOURCE", Text7.Text
EcrireINI "DEFAULT", "MINIMIZE", Text8.Text
EcrireINI "DEFAULT", "1", Text9.Text
EcrireINI "DEFAULT", "2", Text10.Text
EcrireINI "DEFAULT", "3", Text11.Text
EcrireINI "DEFAULT", "4", Text12.Text
EcrireINI "DEFAULT", "5", Text13.Text
EcrireINI "DEFAULT", "6", Text14.Text
EcrireINI "DEFAULT", "7", Text15.Text
EcrireINI "DEFAULT", "8", Text16.Text
EcrireINI "DEFAULT", "FULLSCREEN", Text17.Text
EcrireINI "DEFAULT", "MUTE", Text18.Text
EcrireINI "DEFAULT", "9", Text19.Text
EcrireINI "DEFAULT", "0", Text20.Text
If Text21.Text <> "Absolument Inutile Ici" Then EcrireINI "DEFAULT", "RESERVED", "{run(" & Text21.Text & ")}"
If Text21.Text = "Absolument Inutile Ici" Then EcrireINI "DEFAULT", "RESERVED", ""

EcrireINI "Remote", "RepeatDelay", Label24.Caption
End Sub

Private Sub Command2_Click()
If Text21.Text <> "" Then Shell (Text21.Text)
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form1.Visible = False
Form2.Show
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Text1.Text = LireINI("DEFAULT", "CHNLUP")
Text2.Text = LireINI("DEFAULT", "CHNLDOWN")
Text3.Text = LireINI("DEFAULT", "VOLUP")
Text4.Text = LireINI("DEFAULT", "VOLDOWN")
Text5.Text = LireINI("DEFAULT", "RADIO")
Text6.Text = LireINI("DEFAULT", "TV")
Text7.Text = LireINI("DEFAULT", "SOURCE")
Text8.Text = LireINI("DEFAULT", "MINIMIZE")
Text9.Text = LireINI("DEFAULT", "1")
Text10.Text = LireINI("DEFAULT", "2")
Text11.Text = LireINI("DEFAULT", "3")
Text12.Text = LireINI("DEFAULT", "4")
Text13.Text = LireINI("DEFAULT", "5")
Text14.Text = LireINI("DEFAULT", "6")
Text15.Text = LireINI("DEFAULT", "7")
Text16.Text = LireINI("DEFAULT", "8")
Text17.Text = LireINI("DEFAULT", "FULLSCREEN")
Text18.Text = LireINI("DEFAULT", "MUTE")
Text19.Text = LireINI("DEFAULT", "9")
Text20.Text = LireINI("DEFAULT", "0")
Text21.Text = LireINI("DEFAULT", "RESERVED")
If Text21.Text <> "" Then
IRCmdLine = Left(Text21.Text, Len(Text21.Text) - 2)
Text21.Text = Right(IRCmdLine, Len(IRCmdLine) - 5)
End If
If File1.FileName = "IRPrgChg.ini" Then
Text21.Text = "Absolument Inutile Ici"
Text21.Locked = True
Command2.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False

Else
Text21.Locked = False
Command2.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True

End If
If File1.FileName = "IRPwrDVD.ini" Then NameofInI = "Config de PowerDVD"
If File1.FileName = "IRWinamp.ini" Then NameofInI = "Config de Winamp"
If File1.FileName = "IRWmPlay.ini" Then NameofInI = "Config de Média PLayer"
If File1.FileName = "IRPrgChg.ini" Then NameofInI = "Config du Menu de Base"
If File1.FileName = "IRZoomPl.ini" Then NameofInI = "Config de ZoomPlayer"
If File1.FileName = "irremote.ini" Then NameofInI = "Autre Version de IR"
Label21.Caption = File1.Path & "\" & File1.FileName & " - " & NameofInI
Slider1.Value = LireINI("Remote", "RepeatDelay")
Label24.Caption = LireINI("Remote", "RepeatDelay")
Slider1.Enabled = True
End Sub

Private Sub Form_Load()
NameofInI = "Fichier Non Reconnu"
Set fso = CreateObject("Scripting.FileSystemObject")
Set dirwindows = fso.GetSpecialFolder(0)
Drive1.Drive = dirwindows
Dir1.Path = dirwindows
File1.Path = dirwindows

End Sub

Private Sub Slider1_Change()
Label24.Caption = Slider1.Value
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Crazydoub)