markos

Idzie wypełnić ankietę / pobrać plik na tablecie?

1,2 czerwca. Gratulacje.

Wpadają Wam leady z Włoch? Bo jakiś typek ciągle pisze, że oferty nie działają w jego kraju.

Błąd lokalizacji czy jakaś stara stawka? Bo z tego co widzę dla Malezji zaczynają się od 1$ wzwyż.

Tak, jest to możliwe.

Wrzuciłem teraz w mp4 i nic. Dźwięk działa, ale obraz czarny bez żadnego napisu etc.

Cześć. Wrzuciłem dzisiaj filmik na Wat.tv, zgodnie ze wskazówkami w rozdzielczości 640x480, AVI. Jednak podczas odtwarzania widać tylko czarne tło. Miał ktoś może podobny problem z tym serwisem?

Śmieszek, który zaorał mejk-kesz

Nieśmieszne. ratunku, pomocy.

Mógłby ktoś rzucić okiem na kod? Bo gdy klikam 'generate' wyświetla się klucz, a progressbar nie działa. Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GButton2.Click End End Sub Private Sub GButton1_Click(sender As System.Object, e As System.EventArgs) Handles GButton1.Click If RadioButton1.Checked = False AndRadioButton2.Checked = False Then MessageBox.Show("Choose platform!", "Error") Else Timer1.Start() ProgressBar1.Value = ProgressBar1.Minimum If RadioButton1.Checked Then RadioButton2.Enabled = False End If If RadioButton2.Checked Then RadioButton1.Enabled = False End If End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then End If Timer1.Stop() MessageBox.Show("Key generated!", "Success!") If RadioButton1.Checked Thenlosowanie_klucza: Dim AA As Double = Int(Rnd() * 9999) Dim BB As Double = Int(Rnd() * 9999) Dim CC As Double = Int(Rnd() * 9999) Dim DD As Double = Int(Rnd() * 9999) Dim EE As Double = Int(Rnd() * 9999) If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then If AA + BB + CC + DD + EE = 35560 Then Dim klucz As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE klucz = klucz.Replace("2", "G") klucz = klucz.Replace("4", "Z") klucz = klucz.Replace("6", "S") klucz = klucz.Replace("8", "N") TextBox1.Text = klucz Exit Sub Else GoTo losowanie_klucza End If Else GoTo losowanie_klucza End If Else End If ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then End If Timer1.Stop() If RadioButton2.Checked Thenlosowanie_klucza2: Dim AA As Double = Int(Rnd() * 9999) Dim BB As Double = Int(Rnd() * 9999) Dim CC As Double = Int(Rnd() * 9999) Dim DD As Double = Int(Rnd() * 9999) Dim EE As Double = Int(Rnd() * 9999) If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then If AA + BB + CC + DD + EE = 38560 Then Dim klucz2 As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE klucz2 = klucz2.Replace("3", "F") klucz2 = klucz2.Replace("4", "Z") klucz2 = klucz2.Replace("5", "T") klucz2 = klucz2.Replace("8", "N") TextBox1.Text = klucz2 Exit Sub Else GoTo losowanie_klucza2 End If Else GoTo losowanie_klucza2 End If End If End End SubEnd Class

dziękuję za informację.

dzięki za info!