Anonymní profil Petr – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Petr – Programujte.comAnonymní profil Petr – Programujte.com

 

Příspěvky odeslané z IP adresy 212.71.149.–

Petr
PHP › Mazání adresářů
30. 10. 2008   #88726

To DragonBehemont : Díky za odpoveď.

Petr
PHP › Mazání adresářů
30. 10. 2008   #88722

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

unlink("soubor");

Petr
Visual Basic › Analogové hodiny
13. 10. 2008   #87279

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

Petr
Visual Basic › Analogové hodiny
13. 10. 2008   #87275

Č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á. :)

Petr
PHP › Ošetření include
30. 9. 2008   #86299

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"]);
?>
Je vněm díra a mě se někdo nabourává na stránky, tak nevím jak to mám ošetřit. Předem děkuji za radu. :)

Petr
PHP › Zkopírování souboru
18. 9. 2008   #85442

To kezalb : Díky moc jsi mi pomohl.

Petr
PHP › Zkopírování souboru
18. 9. 2008   #85435

Č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");
,ale nějak to nefungovalo. :smile1:

Petr
Visual Basic › Tetst pripojenia internetu
19. 8. 2008   #83154

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

Petr
Visual Basic › Šifrování souborů
15. 8. 2008   #82877

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

Petr
Visual Basic › Šifrování souborů
14. 8. 2008   #82837

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

Petr
Visual Basic › Šifrování souborů
13. 8. 2008   #82766

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ěď.

Petr
Visual Basic › Sčítání obsahu textboxu
1. 8. 2008   #81641

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

Petr
Visual Basic › Sčítání obsahu textboxu
1. 8. 2008   #81638

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

Petr
Visual Basic › Sčítání obsahu textboxu
1. 8. 2008   #81636

Č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?

Petr
Visual Basic › Spouštění aplikace po startu…
17. 7. 2008   #79632

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

Petr
Visual Basic › Spouštění aplikace po startu…
16. 7. 2008   #79569

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ěď.

xxx
Visual Basic › Indikátor vybuzení
17. 6. 2008   #77201

Opravdu nikdo neví jak to udělat?

Petr
Visual Basic › Nahrávání souborů na ftp ser…
1. 6. 2008   #75645

Opravdu to nikdo neví?

Petr
Visual Basic › Nahrávání souborů na ftp ser…
7. 5. 2008   #73250

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

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý