Anonymní profil Petr – Programujte.com

To DragonBehemont : Díky za odpoveď.

Ahoj, chtěl bych se zeptat jestli existuje nejaky prikaz na mazání adresářů, jako je třeba na mazání souborů

unlink("soubor");

Napadlo mě to, ale nevím jak to mám zapsat do zdrojového kódu. :)

Čau, víte někdo jak udělat analogové hodiny? Skoušel jsem to všelijak, ale pořád to nechce fungovat tak jak má. :)

Ahoj, mám problém stímto scriptem.

<? 	

	if (!$_GET["st"])  {

  	$_GET["st"]="ds";}

	$_GET["st"]=$_GET["st"].".php";

	if (!File_Exists($_GET["st"])) 

	$_GET["st"]='ds.php';

 	include ($_GET["st"]); 

?>

To kezalb : Díky moc jsi mi pomohl.

Čau, potřeboval bych poradit jak mám zkopírovat soubor z nějakého adresáře do jiného, zkoušel jsem toto:

$copy = move_uploaded_file("obrazky/001.jpg", "001.jpg");

Zkus toto: Na formulář si vlož Label a Timer. Timeru nastav interval treba 5000 a do zdrojového kodu vlož toto:

Option Explicit



Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwreserved As Long) As Long

Private Const CONNECT_LAN As Long = &H2

Private Const CONNECT_MODEM As Long = &H1

Private Const CONNECT_PROXY As Long = &H4

Private Const CONNECT_OFFLINE As Long = &H20

Private Const CONNECT_CONFIGURED As Long = &H40



Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean

    Dim dwflags As Long

    Dim WebTest As Boolean

    ConnType = ""



    WebTest = InternetGetConnectedState(dwflags, 0&)

    Select Case WebTest

        Case dwflags And CONNECT_LAN

            ConnType = "LAN"

        Case dwflags And CONNECT_MODEM

            ConnType = "MODEM"

        Case dwflags And CONNECT_PROXY

            ConnType = "PROXY"

        Case dwflags And CONNECT_OFFLINE

            ConnType = "OFFLINE"

        Case dwflags And CONNECT_CONFIGURED

            ConnType = "CONFIGURED"

    End Select

    IsWebConnected = WebTest

End Function



Private Sub Form_Load()

If IsWebConnected = False Then

    Label1.Caption = "jste offline"

End If



If IsWebConnected = True Then

    Label1.Caption = "jste online"

End If

End Sub



Private Sub Timer1_Timer()

Form_Load

End Sub

Dík za radu, ale já jsem začátečník tak nevím jak tu smyčku mám udělat.

Opravdu nikdo neví čím to je? :smile10:

Mám jeden problém, použil jsem tento kód
Postup:
Na formulář přidejte tlačítko a zapište do něj následující proceduru:

Sub FileEncodeAndDecode(InputFile As String, OutputFile As String, _
PasswordKey As String)

Dim temp As Single
Dim Char As String * 1
Dim XORMask As Single
Dim temp1 As Integer

Open InputFile For Binary As #1
Open OutputFile For Binary As #2

For x = 1 To Len(PasswordKey)
temp = Asc(Mid$(PasswordKey, x, 1))
For y = 1 To temp
temp1 = Rnd
Next y

Randomize temp1
Next x


Counter = 0
For z = 1 To FileLen(InputFile)

XORMask = Int(Rnd * 256)

Get 1, , Char
Char = Chr$((Asc(Char) Xor XORMask))
Put 2, , Char

Counter = Counter + 1
If Counter > Len(PasswordKey) Then Counter = 1

For x = 1 To (Asc(Mid$(PasswordKey, Counter, 1)) * 2)
temp = Rnd
Next x
Next z

Close #1
Close #2

End Sub
Na událost Click tlačítka zapište:

Private Sub Command1_Click()

Dim InputFile As String
Dim OutputFile As String
Dim PasswordKey As String

InputFile = InputBox("Zadejte jméno souboru pro enkódování/dekódování")
OutputFile = InputBox("Zadejte jméno nového souboru")
PasswordKey = InputBox("Zadejte heslo")

Call FileEncodeAndDecode(InputFile, OutputFile, PasswordKey)

MsgBox "Soubor uložen jako " + OutputFile
End

End Sub

Tato aplikace umožňuje dekódovat/enkódovat pouze jeden soubor a když chci dekódovat/enkódovat další soubor musím tu aplikaci ukončit a znovu spustit, protože když ji neukončím tak to převádí špatně. Děkuji za odpověď.

Už jesem na to přišel. Díky za radu.

A jak je mám přetypovat? :)

Čaute, chťel jsem se zeptat, nevíte jak mám sčítat čísla v několika textboxech? Skoušel jsem tento kód: Text3.text = Text1.text + Text2.text , a když jsem do textu1 zadal treba 1 a do textu2 treba 2 tak mi to do textu3 vypsalo 12 místo 3. Nevíte jak to mám vyřešit?

Díky za radu, ale jak to mam do těch registrů přidat?

Ahoj, nevíte jak mám udělat, aby se mi po stratu PC spouštěla apliakce kterou si vytvořím ve VB? Předem děkuji za odpověď.

Opravdu nikdo neví jak to udělat?

Opravdu to nikdo neví?

Chtel jsem se zeptat jestli nahodou nevite jak nahravat soubory na server pomoci visual basicu.