Anonymní profil Michal – Programujte.com

Dobrý den, prosím vás, nevíte náhodou někdo, jak získat referer ze stránky? Potřeboval bych ho uložit do proměnné. Předem díky :)

To co je červeně v závorce bych tam chtěl + bych tam chtěl i další disky

Zjistit seznam..

Chci aby se zobrazila jednotka jako třeba C:\

Už ano, ale jen to napíše eMachines ale já bych k tomu ještě potřeboval jestli je to C:\ nebo D:\...

Zkusil, ale nic to nedělá

Tohle není Visual Basic ne?

Ahoj, prosím vás jak mám udělat aby se název místního disku zobrazil v Labelu?

Zkoušel jsem něco takového

Label3.Text = IO.DriveType.Fixed

Ale jen to napíše 3 a nic víc, já bych potřeboval aby to zobrazilo název místního disku.

Prosím pomozte

Zkoušel jsem to přes total commander a jde to v pohodě

Měl by jít aji ten můj script, ale určitě mám blbě tu adresu ftp, zkoušel jsem to už snad všelijak ale pořád nic :(

Podle mě mám tu adresu ftp špatně..

Dobrý večer, udělal jsem si jednoduchý script pro ftp chat, ale nějak mi nejde ukládání a čtení dat na ftp. Jsou tady dvě možnosti, buď mám špatně napsanou adresu ftp a nebo je někde chyba v kodu. Nevíte jak by to šlo spravit?

Kod pro ukládání na ftp

[CODE]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim AClient As New Net.WebClient
            AClient.Credentials = New Net.NetworkCredential("USER", "PASSCODE")
            AClient.UploadString("ftp://ventertainment.mzf.cz/zpravy.txt", NameTextBox.Text & " : " & TextToSend.Text)
        Catch ex As Exception
        End Try
    End Sub

[/CODE]

Kod pro čtení

[CODE]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim BClient As New Net.WebClient
            BClient.Credentials = New Net.NetworkCredential("USER", "PASSCODE")
            TextChecker.Text = (BClient.DownloadString("ftp://ventertainment.mzf.cz/zpravy.txt"))
            RecieveLB.SelectedIndex = RecieveLB.Items.Count - 1

            'Error Correction. Prevents The Same Text From Recieving.
            If TextChecker.Text = RecieveLB.SelectedItem = True Then
                'Nothing.
            Else
                Try
                    RecieveLB.Items.Add(TextChecker.Text)
                Catch ex As Exception
                End Try
            End If
        Catch ex As Exception
        End Try
    End Sub

[/CODE]

Díky, moc už to mám

Tam sem hledal ale marně, našel sem akorát toto

http://anantgarg.com/…jquery-chat/

ale nějak mi to nejde :(

Nějaký odkaz s návodem jak na to by nebyl? Já jsem z toho úplně mimo

Zdravím, potřeboval bych pomoct s tvorbou chatu na svoje webové stránky jako je na facebooku. Sám ho vytvořit nezvládnu, a proto jsem začal hledat nějaký tutorial, ale žádný sem bohužél nenašel. Nepomohl by mi prosím někdo s tím?

Zdravím, potřeboval bych pomoct s dvěma chybama ve scriptu na přihlášení a nějak si nevím rady.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("ERROR,YOU NEED AT LEAST ONE LETTER", MsgBoxStyle.Critical)
        Else
            If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\" + TextBox1.Text + "\") Then
                Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "USERNAME.TXT")
                Dim userline As String
                Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "PASSWORD.TXT")
                Dim PASSLINE As String
    Do PASSLINE = TextBox2.Text userline = USERREAD.ReadLine Console.WriteLine(PASSLINE) Console.WriteLine(userline) 
                Loop Until userline Is Nothing
                If TextBox2.Text = "" Then
                    MsgBox("error,PLEASE INPUT A PASSWORD", MsgBoxStyle.Critical)
                Else
                    If PASSLINE = PASSREAD.ReadLine() = True Then
    MsgBox("Youre Logd in " + TextBox1.Text) Form3.show()
                    End If
                End If
            Else
                MsgBox("THE USERNAME DONT EXIT", MsgBoxStyle.Critical)
            End If
        End If
    End Sub
End Class

A chyby jsou:

Error 1 Syntax error. C:\Users\Kluci\Desktop\OS-VEntertainment\OS-VEntertainment\Form1.vb 12 8 OS-VEntertainment

Error 2 End of statement expected. C:\Users\Kluci\Desktop\OS-VEntertainment\OS-VEntertainment\Form1.vb 18 46 OS-VEntertainment

Promiňte, ale ne. Jakmile sem včera přešel na novou verzi enginu (Unity 3.4), tak se mi smazala postava, se scripty. Budu muset to udělat znovu.

Pořád stejná chyba AF: /etc/httpd/perl/Apache2/reklama/0.65 uri:/display.php -->

Scripty:

Display.php

<?php
    // Send variables for the MySQL database class.
    $database = mysql_connect('localhost', 'grow', 'password') or die('Could not connect: ' . mysql_error());
    mysql_select_db('openfirescores') or die('Could not select database');

    $query = "SELECT * FROM `scores` ORDER by `score` DESC LIMIT 5";
    $result = mysql_query($query) or die('Query failed: ' . mysql_error());
    $num_results = mysql_num_rows($result);

    for($i = 0; $i < $num_results; $i++)
    {
         $row = mysql_fetch_array($result);
         echo $row['name'] . "\t" . $row['score'] . "\n";
    }
?>

Addscore.php

<?php
        $db = mysql_connect('localhost', 'grow', 'password') or die('Could not connect: ' . mysql_error());
        mysql_select_db('openfirescores') or die('Could not select database');

        // Strings must be escaped to prevent SQL injection attack.
        $name = mysql_real_escape_string($_GET['name'], $db);
        $score = mysql_real_escape_string($_GET['score'], $db);
        $hash = $_GET['hash'];
        $secretKey="Highscore"; # Change this value to match the value stored in the client javascript below

        $real_hash = md5($name . $score . $secretKey);
        if($real_hash == $hash) {
            // Send variables for the MySQL database class.
            $query = "insert into scores values (NULL, '$name', '$score');";
            $result = mysql_query($query) or die('Query failed: ' . mysql_error());
        }
?>

Scripty mám nechat původní?

Teď to napsalo toto  reklamy.....AF: /etc/httpd/perl/Apache2/reklama/0.65 uri:/display.php -->

Má to dělat toto -> http://www.unifycommunity.com/wiki/index.php?…

Ok zkusím to smazat

Celý řádek nebo jen ten "ORDER by `score` DESC". A mělo by to jet to myslíte jako bez erroru, nebo že to bude dělat to co má?

Tady jsou

Databáze se jmenuje openfirescores, tabulka se jmenuje scores.

#2 KIIV
Tabulka je v javascriptu který mám v enginu hry.

Zdravím, potřeboval bych se zbavit téhleté chyby, nevíte někdo jak to spravit?
Tady scripty
display.php

<?php
    // Send variables for the MySQL database class.
    $database = mysql_connect('localhost', 'grow', 'password') or die('Could not connect: ' . mysql_error());
    mysql_select_db('openfirescores') or die('Could not select database');

    $query = "SELECT * FROM `scores` ORDER by `score` DESC LIMIT 5";
    $result = mysql_query($query) or die('Query failed: ' . mysql_error());
    $num_results = mysql_num_rows($result);

    for($i = 0; $i < $num_results; $i++)
    {
         $row = mysql_fetch_array($result);
         echo $row['name'] . "\t" . $row['score'] . "\n";
    }
?>

addscore.php

<?php
        $db = mysql_connect('localhost', 'grow', 'password') or die('Could not connect: ' . mysql_error());
        mysql_select_db('openfirescores') or die('Could not select database');

        // Strings must be escaped to prevent SQL injection attack.
        $name = mysql_real_escape_string($_GET['name'], $db);
        $score = mysql_real_escape_string($_GET['score'], $db);
        $hash = $_GET['hash'];
        $secretKey="mySecretKey"; # Change this value to match the value stored in the client javascript below

        $real_hash = md5($name . $score . $secretKey);
        if($real_hash == $hash) {
            // Send variables for the MySQL database class.
            $query = "insert into scores values (NULL, '$name', '$score');";
            $result = mysql_query($query) or die('Query failed: ' . mysql_error());
        }
?>

Já doufám že se to povede. Už mám zbraně, jednu mapu, braní zbraní, networking, změnu map, menu, ovládání postavy, chat, "ovládání zbraní", když střelím do zdi tak ona se zničí. Takže teoreticky ještě budu potřebovat pár věcí, a to ty, že když spadnu z velké výšky tak se zabiju, nebo se mi ubere život. Potom highscore které se otevře při stistku tab. A ještě když někdo někoho zabije, tak se ukáže jeho jméno, obrázek zbraně, a jméno toho koho zabil. Jak přemýšlím už nic jiného potřebovat nebudu jen modely.

Zdravím, hledám kohokoli, kdo se vyzná v jazyce javascript, nebo dělá 3d modely. Potřebuji vás na pomoc při tvorbě hry z prvního pohledu. Hra bude podobná Counter Strike, ale reálnější, s lepší grafikou a fyzikou. Hra bude tvořena v Unity game enginu.

pro více info napište na icq = 431209651 ,nebo e-mail = michalfierla@seznam.cz