Ir para conteúdo
Fórum Script Brasil

Mrk3004

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    9

  • Registro em

  • Última visita

Sobre Mrk3004

  • Data de Nascimento 29/10/1993

Contatos

  • Website URL
    http://
  • ICQ
    0

Mrk3004's Achievements

0

Reputação

  1. Mrk3004

    Hospedagem na web

    pergunta respondeu ao JavaBeginner de Mrk3004 em PHP

    http://codeigniter.com/wiki/Automatic_configbase_url/
  2. Mrk3004
    Se for Windows também recomendo o notepad++ , usei muito na época em que trabalhava com Windows. Já se for Linux eu recomendo o geany, muito superior ao gedit, principalmente para quem trabalha com várias linguagens diferentes. Em php ele facilita muito em códigos mais complexos, enumera funções e variáveis tornando mais fácil encontrar a informação. O gedit também é bom, já usei bastante.
  3. Mrk3004

    Testar conexão do cliente

    pergunta respondeu ao Mrk3004 de Mrk3004 em PHP

    Encontrei uma solução usando apenas javascript e html, ficou show! Funciona com duas funções, uma para inserir dinamicamente uma imagem oculta dentro do<body> e checar se ele carregou ou não, e outra para receber o valor da primeira função e decidir o que fazer. Se o return for false, a função será executada novamente até que se consiga um true, que redireciona a pagina. Fiz alguns testes aqui e parece que tudo está bem, vou implementar no servidor de produção pra ver como reage. Sugiro mover este tópico para a área de javascript, já que fugiu totalmente da ideia inicial. Bom, na minha concepção conhecimento deve ser livre, então se alguém de repente precisar, está ai: <!doctype html> <html> <head> <title>Login Test</title> <meta charset="UTF-8"> &lt;script> var testURL="http://registro.br/images/logo-cg.gif" var sleep=100 function isOnline() { <!-- alert("executando"); --> document.getElementsByTagName('body')[0].innerHTML += '<img id="img_test" style="display: none;" ' + 'src="' + testURL + "?" + Math.random() + '" ' + 'onerror="isOnline_return(false);" ' + 'onload="isOnline_return(true);">'; isOnline_return = function(result){ REDIRECT(result); var element = document.getElementById('img_test'); element.parentNode.removeChild(element); } } function REDIRECT(result) { <!-- alert(result); --> if(result==true){ location.href = "http://www.google.com.br"; } else { setTimeout("isOnline()", sleep); } } </script> </head> <body onload="isOnline();"><p>aguardando conexão...</p></body> </html> Só não gostei desse random() que tive que incluir pra não ler a imagem a partir do cache, mas por enquanto está bom. Se alguém quiser melhorar, a vontade. Inté ;)
  4. Mrk3004
    Tá de brincadeira né? Funcionou! Obrigado amigo, olho ninja o seu. Vou ver se compro um óculos, quem sabe assim eu começo a enxergar esses probleminhas <_< :lol: Abraço
  5. Mrk3004
    Eu tenho um sistema de controle de conexões feito em php que funciona em conjunto com um firewall . O cliente acessa a pagina > faz login > se o login estiver correto o servidor libera a conexão com a internet para o cliente e redireciona para uma pagina. O problema é que ao liberar a conexão ocorre um pequeno delay para ela ser de fato funcionar, então é necessário que se aguardar entre 3 ~ 7 segundos, do contrário o cliente vai cair em uma 404. Eu criei uma pequena barra de progresso que conta de 0 até 100 e resolve esse problema. Já uso esse sistema a algum tempo, mas gostaria de melhora-lo. O que tenho em mente, é substituir essa barra (que leva cerca de 10 segundos para chegar a 100 e redirecionar o cliente) por uma checagem de conexão real, assim poderia liberar o cliente mais rapidamente. Por exemplo: >> if cliente logou >> ping google.com >> while google.com não responde >> tentar novamente >> if pingou >> redirecionar O problema é que não encontrei nenhuma forma de acessar uma pagina ao lado do cliente, e não do servidor. Isso foi o que pensei, mas se tiver alguma outra ideia, ou solução para essa, ela será bem vinda, o importe é apenas verificar se o cliente realmente tem acesso a internet ou não. Muitíssimo obrigado.
  6. Mrk3004
    UP
  7. Mrk3004
    Já estou quebrando a cabeça com isso a algum tempo mas não encontrei erro e nem solução. Criei um pequeno editor de html5 em tempo real, ele está nesse link: http://fretsonfire.x10.mx/projetos/html5_editor/ Porém, não funciona no Google Chrome, já tentei várias adaptações mas não consegui nenhum resultado. Alguém poderia me ajudar a desvendar esse mistério?
  8. Mrk3004
    Direto ao ponto : Estou fazendo um projeto em vb6 , porem é um código que foi descompilado em assembly , mais adaptado para vb6. Ao carregar o processo percebo várias linhas vermelhas, e (obviamente) recebo vários erros ao tentar compilar o projeto. Será que alguém poderia me ajudar? Isso talvez , poderia ser algum módulo faltando, ou algo do tipo , no próprio vb6? Vou disponibilizar o código do Form1 abaixo : 'VA: 403668 Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 'VA: 403610 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'VA: 4035CC Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Form_Load() '406FE0 loc_00407005: var_8 = &H401190 loc_00407078: call MSVBVM60.DLL.__vbaNew(004039BCh, arg_8, esi, ebx) loc_00407090: edi+34h = IsSet(MSVBVM60.DLL.__vbaNew(004039BCh, arg_8, esi, ebx)) loc_004070B5: Timer1.Enabled = esi loc_004070F4: Text1.Text = "Loading..." loc_0040712D: CreateObject(4209192, 4248748) loc_00407133: loc_00407164: var_1C = App.Path loc_00407198: var_20 = var_1C & "\MSNOF.ini" loc_0040719E: Proc_0040AFA0(var_20, edx, var_20) loc_004071A3: var_E0 = Proc_0040AFA0(var_20, edx, var_20) loc_004071CE: If word ptr var_E0 = 0 Then GoTo loc_0040767E loc_0040721E: var_1C = App.Path loc_0040724F: call Open #(00000001h, FFFFFFFFh, 00000001h, var_1C & "\MSNOF.ini", var_1C, "", 00403A38h, 00000050h, CreateObject(4209192, 4248748)) loc_0040728F: var_88 = "13#1" loc_00407299: var_90 = 8 loc_004072C4: var_70 = Split(CStr(Input(LOF(1), 1)), "13#1", -1, 0) loc_004072D3: call MSVBVM60.DLL.__vbaAryVar(00002008h, var_70) loc_004072ED: call MSVBVM60.DLL.__vbaAryCopy(App.put_000x, MSVBVM60.DLL.__vbaAryVar(00002008h, var_70)) loc_00407315: Close 00000001h loc_0040732D: neg ecx loc_00407337: If Form1.'App Initialize < App.GetTypeInfo Then GoTo loc_00407345 loc_00407339: Err.Raise loc_00407345: loc_0040734C: GoTo loc_00407354 loc_0040734E: Err.Raise loc_00407354: loc_00407361: ecx = ecx + eax loc_0040737B: 00000001h = 00000001h - App.'App Initialize loc_00407382: var_D0 = 1 loc_00407388: If 00000001h < App.GetTypeInfo Then GoTo loc_00407396 loc_0040738A: Err.Raise loc_00407396: loc_0040739D: GoTo loc_004073A5 loc_0040739F: Err.Raise loc_004073A5: loc_004073B2: ecx = ecx + eax loc_004073CC: 00000002h = 00000002h - App.'App Initialize loc_004073D3: var_D0 = 2 loc_004073D9: If 00000002h < App.GetTypeInfo Then GoTo loc_004073E7 loc_004073DB: Err.Raise loc_004073E7: loc_004073EE: GoTo loc_004073F6 loc_004073F0: Err.Raise loc_004073F6: loc_0040740C: If (ecx + eax <> "False") <> 0 Then GoTo loc_00407419 loc_00407412: eax = (ecx + eax = "False") + 1 loc_00407413: App.GetTypeInfoCount = App.GetTypeInfoCount + App.GetTypeInfoCount loc_00407415: [esi] = [esi] And (ecx + eax = "False") + 1 loc_00407417: [eax] = [eax] + (ecx + eax = "False") + 1 loc_00407419: loc_0040742D: 00000002h = 00000002h - App.'App Initialize loc_00407434: var_D0 = 2 loc_0040743A: If 00000002h < App.GetTypeInfo Then GoTo loc_00407448 loc_0040743C: Err.Raise loc_00407448: loc_0040744F: GoTo loc_00407457 loc_00407451: Err.Raise loc_00407457: loc_0040746D: If (edx + eax <> "True") <> 0 Then GoTo loc_0040747D loc_00407478: GoTo loc_00407A39 loc_0040747D: loc_00407487: var_78 = 80020004h loc_0040748A: var_68 = 80020004h loc_00407496: var_80 = 10 loc_00407499: var_70 = 10 loc_0040749C: var_88 = ".ini file error" loc_004074A6: var_90 = 8 loc_004074B0: var_60 = ".ini file error" loc_004074CA: 00000002h = 00000002h - App.'App Initialize loc_004074D7: If 00000002h < App.GetTypeInfo Then GoTo loc_004074E5 loc_004074D9: Err.Raise loc_004074E5: shl ecx, 02h loc_004074E8: var_110 = 2 loc_004074EE: GoTo loc_004074FC loc_004074F0: Err.Raise loc_004074FC: loc_0040751C: var_20 = ".ini file error." & "13#1" & "Property LoadFOFOnStartup =" loc_00407562: var_30 = %StkVar2 & eax+ecx & "13#1" & "The property can only be True or False." & "13#1" loc_0040756C: var_48 = var_30 & "Would you like to delete the .ini file and run first time setup?" loc_00407581: var_50 = 8 loc_00407588: MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60 loc_00407590: Var_Ret_1 = MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60 loc_004075D9: If word ptr Var_Ret_1 <> 6 Then GoTo loc_00407A33 loc_00407629: var_1C = App.Path loc_0040764F: var_48 = var_1C & "\MSNOF.ini" loc_0040765A: Kill 8 loc_0040767E: loc_00407681: Unknown_VTable_Call [ecx+000002B4h] loc_004076BA: Timer1.Enabled = 00000000h loc_004076EB: ecx = "Frets On Fire" loc_004076F7: ecx = "&Song, &Artist" loc_00407703: var_40D010 = 0 loc_0040770D: ecx = "C:\Program Files\FretsOnFire" loc_00407719: ecx = "C:\Program Files\FretsOnFire\data\songs" loc_0040771B: eax = "" Or FFFFFFFFh loc_0040772B: eax = "" Or FFFFFFFFh + 1 loc_0040772C: [esi-5Dh] = [esi-5Dh] + "" Or FFFFFFFFh + 1 loc_0040772F: rol byte ptr es:[eax], 01h loc_00407756: var_90 = 10 loc_0040776D: var_88 = 80020004h loc_004077B3: Unknown_VTable_Call [edx+000002B0h] loc_004077E2: ecx = "hey dude" loc_0040780E: var_100 = &H40D038 loc_0040785A: var_B4 = App.Major loc_004078C5: var_B8 = App.Minor loc_00407930: var_BC = App.Revision loc_00407962: call MSVBVM60.DLL.__vbaStrI2(var_B4, "MSNOF v", var_BC, "", 00403A38h, 000000C8h, "", 0040D4ACh, 00403A18h) loc_00407986: var_24 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(var_B4, "MSNOF v", var_BC, "", 00403A38h, 000000C8h, "", 0040D4ACh, 00403A18h) & 00403EC0h loc_00407990: call MSVBVM60.DLL.__vbaStrI2(var_B8, var_24) loc_004079A5: var_2C = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(var_B8, var_24) loc_004079AF: call MSVBVM60.DLL.__vbaStrI2(var_BC, var_2C) loc_004079C4: var_34 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(var_BC, var_2C) loc_004079CE: App.Path = var_34 loc_00407A21: var_4 = 0 loc_00407A2E: GoTo loc_004080C0 loc_00407A33: End loc_00407A39: loc_00407A4D: 00000003h = 00000003h - App.'App Initialize loc_00407A54: var_D0 = 3 loc_00407A5A: If 00000003h < App.GetTypeInfo Then GoTo loc_00407A68 loc_00407A5C: Err.Raise loc_00407A68: loc_00407A6F: GoTo loc_00407A77 loc_00407A71: Err.Raise loc_00407A77: loc_00407A8D: If (ecx + eax <> "Game") <> 0 Then GoTo loc_00407A99 loc_00407A8F: var_40D010 = (ecx + eax = "Game") loc_00407A94: GoTo loc_00407CBE loc_00407A99: loc_00407AAD: 00000002h = 00000002h - App.'App Initialize loc_00407AB4: var_D0 = 2 loc_00407ABA: If 00000002h < App.GetTypeInfo Then GoTo loc_00407AC8 loc_00407ABC: Err.Raise loc_00407AC8: loc_00407ACF: GoTo loc_00407AD7 loc_00407AD1: Err.Raise loc_00407AD7: loc_00407AED: If (edx + eax <> "Music") <> 0 Then GoTo loc_00407AFE loc_00407AEF: var_40D010 = 1 loc_00407AF9: GoTo loc_00407CBE loc_00407AFE: loc_00407B08: var_78 = 80020004h loc_00407B0B: var_68 = 80020004h loc_00407B17: var_80 = 10 loc_00407B1A: var_70 = 10 loc_00407B1D: var_88 = ".ini file error" loc_00407B27: var_90 = 8 loc_00407B31: var_60 = ".ini file error" loc_00407B4B: 00000002h = 00000002h - App.'App Initialize loc_00407B58: If 00000002h < App.GetTypeInfo Then GoTo loc_00407B66 loc_00407B5A: Err.Raise loc_00407B66: shl ecx, 02h loc_00407B69: var_114 = 2 loc_00407B6F: GoTo loc_00407B7D loc_00407B71: Err.Raise loc_00407B7D: loc_00407B9D: var_20 = ".ini file error." & "13#1" & "Property MessageType =" loc_00407BE3: var_30 = %StkVar2 & eax+ecx & "13#1" & "The property can only be Game or Music." & "13#1" loc_00407BED: var_48 = var_30 & "Would you like to delete the .ini file and run first time setup?" loc_00407C02: var_50 = 8 loc_00407C09: MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60 loc_00407C11: Var_Ret_2 = MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60 loc_00407C5A: If word ptr Var_Ret_2 <> 6 Then GoTo loc_00407CB8 loc_00407CAD: If App.Path >= 0 Then GoTo loc_00407641 loc_00407CB3: GoTo loc_00407632 loc_00407CB8: End loc_00407CBE: loc_00407CD2: 00000004h = 00000004h - App.'App Initialize loc_00407CD9: var_D0 = 4 loc_00407CDF: If 00000004h < App.GetTypeInfo Then GoTo loc_00407CED loc_00407CE1: Err.Raise loc_00407CED: loc_00407CF4: GoTo loc_00407CFC loc_00407CF6: Err.Raise loc_00407CFC: loc_00407D09: ecx = ecx + eax loc_00407D23: 00000005h = 00000005h - App.'App Initialize loc_00407D2A: var_D0 = 5 loc_00407D30: If 00000005h < App.GetTypeInfo Then GoTo loc_00407D3E loc_00407D32: Err.Raise loc_00407D3E: loc_00407D45: GoTo loc_00407D4D loc_00407D47: Err.Raise loc_00407D4D: loc_00407D5A: ecx = ecx + eax loc_00407D74: 00000006h = 00000006h - App.'App Initialize loc_00407D7B: var_D0 = 6 loc_00407D81: If 00000006h < App.GetTypeInfo Then GoTo loc_00407D8F loc_00407D83: Err.Raise loc_00407D8F: loc_00407D96: GoTo loc_00407D9E loc_00407D98: Err.Raise loc_00407D9E: loc_00407DB7: eax = eax + 1 loc_00407DB8: [ecx+0040D020h] = [ecx+0040D020h] + eax + 1 loc_00407DCB: var_1C = eax + 1 & "\FretsOnFire.exe" loc_00407DD1: Proc_0040AFA0(var_1C, edx, var_1C) loc_00407DD6: neg ax loc_00407DD9: sbb eax, eax loc_00407DDE: eax = Proc_0040AFA0(var_1C, edx, var_1C) + 1 loc_00407DDF: neg eax loc_00407DE1: var_D0 = Proc_0040AFA0(var_1C, edx, var_1C) + 1 loc_00407DF6: If word ptr var_D0 = 0 Then GoTo loc_00407FE6 loc_00407E06: var_78 = 80020004h loc_00407E09: var_68 = 80020004h loc_00407E15: var_80 = 10 loc_00407E18: var_70 = 10 loc_00407E1B: var_88 = "Frets on fire not found" loc_00407E25: var_90 = 8 loc_00407E2F: var_60 = "Frets on fire not found" loc_00407E49: 00000002h = 00000002h - App.'App Initialize loc_00407E50: var_D0 = 2 loc_00407E56: If 00000002h < App.GetTypeInfo Then GoTo loc_00407E64 loc_00407E58: Err.Raise loc_00407E64: loc_00407E71: GoTo loc_00407E7F loc_00407E73: Err.Raise loc_00407E7F: loc_00407E9F: var_20 = "Frets on fire not found" & "13#1" & "Property FretsOnFireDirectory =" loc_00407EE5: var_30 = %StkVar2 & ecx+edx & "13#1" & "FretsOnFire.exe was not found in this location." & "13#1" loc_00407EF2: var_48 = var_30 & "Would you like to delete the .ini file and run first time setup?" loc_00407F04: var_50 = 8 loc_00407F0B: MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60 loc_00407F13: Var_Ret_3 = MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60 loc_00407F5A: If Var_Ret_3 <> 6 Then GoTo loc_00407FE0 loc_00407FAA: var_1C = App.Path loc_00407FCD: var_48 = var_1C & "\MSNOF.ini" loc_00407FD3: var_50 = 8 loc_00407FDB: GoTo loc_0040765A loc_00407FE0: End loc_00407FEE: If var_40D024 <> 65535 Then GoTo loc_0040801F loc_00408007: var_50 = 8 loc_0040800E: Shell("", 1) loc_0040801F: loc_0040803D: Timer1.Enabled = FFFFFFFFh loc_00408067: GoTo loc_004077D1 loc_004080BF: Exit Sub loc_004080C0: Exit Sub End Sub Private Sub Form_Unload(Cancel As Integer) '408600 loc_00408622: var_8 = &H4011F8 loc_0040864C: var_18 = 0 loc_00408653: Form1.SaveProp = IsSet(0) loc_00408655: Proc_0040B3A0(arg_8, edx, esi) loc_0040865D: Form1.SaveProp = IsSet(0) loc_00408685: var_2C = &H40D4AC loc_00408688: var_18 = IsSet(arg_8) loc_0040868F: Global.UnLoad var_18 loc_004086BC: GoTo loc_004086C8 loc_004086C7: Exit Sub loc_004086C8: Exit Sub End Sub Private Sub messagesettings_Click() '4086F0 loc_00408712: var_8 = &H401208 loc_00408752: var_24 = 10 loc_0040878F: Form1.Show esi, 0040D060h End Sub Private Sub Timer1_Timer() '4088D0 loc_004088F5: var_8 = &H401218 loc_00408919: %x1 = Form1.Caption = %x1 = Form1.Caption - 0001h loc_00408960: If %x1 = Form1.Caption > eax Then GoTo loc_00409252 loc_0040897B: ecx = 00403880h loc_0040899F: Text1.Text = "Scanning..." loc_004089C8: DoEvents loc_004089DB: var_74 = &H4008 loc_004089E5: var_6C = &H40D01C loc_00408A2A: Form1.Proc_0_7_4080E0(arg_8, "", "", TextBox.SaveProp.1, TextBox.SaveProp.1) loc_00408A4F: If (Form1.Index = %x1 = Set %x2 = Form1(%x1)) = 0 Then GoTo loc_0040923F loc_00408A61: If (Set %x2 = Form1(%x1) = 00403880h) = 0 Then GoTo loc_0040904C loc_00408A75: ecx = 00403880h loc_00408A7F: ecx = 00403880h loc_00408A8C: Var_Ret_1 = Len(Set 004039F8h = Form1(%x1)) loc_00408A9E: loc_00408AA9: If Form1 = %x1 > Var_Ret_1 Then GoTo loc_00408BA1 loc_00408ABB: var_6C = Set %x2 = Form1(%x1) loc_00408ABE: var_74 = &H4008 loc_00408AE6: var_7C = &H404024 loc_00408AED: var_84 = &H8008 loc_00408AF7: Var_Ret_2 = (Left(Right(, Form1 = %x1), 1) = ) loc_00408B16: If Var_Ret_2 <> 0 Then GoTo loc_00408B39 loc_00408B18: DoEvents loc_00408B27: Form1 = %x1 = Form1 = %x1 + 00000001h loc_00408B34: GoTo loc_00408A9E loc_00408B39: loc_00408B3B: var_6C = Set %x2 = Form1(%x1) loc_00408B3F: var_74 = &H4008 loc_00408B50: Len(Set %x2 = Form1(%x1)) = Len(Set %x2 = Form1(%x1)) - word ptr [esi+44h] loc_00408B5B: Len(Set %x2 = Form1(%x1)) = Len(Set %x2 = Form1(%x1)) + 00000001h loc_00408B6A: var_44 = Left(, Len(Set %x2 = Form1(%x1))) loc_00408B74: var_44 = loc_00408B89: ecx = var_44 loc_00408BA1: loc_00408BBE: ecx = Set %x2 = Form1(%x1) & "song.ini" loc_00408BD6: call Open #(00000001h, FFFFFFFFh, 00000001h, Set %x2 = Form1(%x1), var_44) loc_00408BF7: var_6C = "13#1" loc_00408BFE: var_74 = 8 loc_00408C26: var_64 = Split(CStr(Input(LOF(1), 1)), "13#1", -1, 0) loc_00408C35: call MSVBVM60.DLL.__vbaAryVar(00002008h, var_64) loc_00408C4C: call MSVBVM60.DLL.__vbaAryCopy(%x1 = Form1.Name, MSVBVM60.DLL.__vbaAryVar(00002008h, var_64)) loc_00408C74: Close 00000001h loc_00408C7F: call UBound(00000001h, %x1 = Form1.Name, var_64) loc_00408C87: Var_Ret_3 = UBound(00000001h, %x1 = Form1.Name, var_64) loc_00408C99: loc_00408CA4: If Form1 = %x1 > Var_Ret_3 Then GoTo loc_00408E60 loc_00408CCE: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object loc_00408CD2: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408CDD loc_00408CD4: Err.Raise loc_00408CDD: loc_00408CE4: GoTo loc_00408CEF loc_00408CE6: Err.Raise loc_00408CEF: loc_00408CF5: TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise loc_00408D01: var_74 = &H4008 loc_00408D23: var_7C = "artist =" loc_00408D2A: var_84 = &H8008 loc_00408D34: Var_Ret_4 = (Left(, 8) = ) loc_00408D49: If Var_Ret_4 <> 0 Then GoTo loc_00408D66 loc_00408D54: TextBox = %x1 = TextBox = %x1 + 00000001h loc_00408D61: GoTo loc_00408C99 loc_00408D66: loc_00408D7C: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object loc_00408D80: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408D88 loc_00408D82: Err.Raise loc_00408D88: loc_00408D95: GoTo loc_00408DA3 loc_00408D97: Err.Raise loc_00408DA3: loc_00408DC7: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize TextBox Object loc_00408DCB: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408DD6 loc_00408DCD: Err.Raise loc_00408DD6: loc_00408DDD: GoTo loc_00408DE8 loc_00408DDF: Err.Raise loc_00408DE8: loc_00408DEB: var_74 = &H4008 loc_00408DF2: TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise loc_00408E0C: Len(ecx+edx) = Len(ecx+edx) - 00000009h loc_00408E1E: var_44 = Right(, Len(ecx + edx)) loc_00408E48: ecx = var_44 loc_00408E60: loc_00408E65: call UBound(00000001h, %x1 = Form1.Name, "") loc_00408E6D: Var_Ret_5 = UBound(00000001h, %x1 = Form1.Name, "") loc_00408E7F: loc_00408E8A: If Form1 = %x1 > Var_Ret_5 Then GoTo loc_00409046 loc_00408EB4: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object loc_00408EB8: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408EC3 loc_00408EBA: Err.Raise loc_00408EC3: loc_00408ECA: GoTo loc_00408ED5 loc_00408ECC: Err.Raise loc_00408ED5: loc_00408EDB: TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise loc_00408EE7: var_74 = &H4008 loc_00408F09: var_7C = "name =" loc_00408F10: var_84 = &H8008 loc_00408F1A: Var_Ret_6 = (Left(, 6) = ) loc_00408F2F: If Var_Ret_6 <> 0 Then GoTo loc_00408F4C loc_00408F3A: TextBox = %x1 = TextBox = %x1 + 00000001h loc_00408F47: GoTo loc_00408E7F loc_00408F4C: loc_00408F62: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object loc_00408F66: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408F6E loc_00408F68: Err.Raise loc_00408F6E: loc_00408F7B: GoTo loc_00408F89 loc_00408F7D: Err.Raise loc_00408F89: loc_00408FAD: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize TextBox Object loc_00408FB1: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408FBC loc_00408FB3: Err.Raise loc_00408FBC: loc_00408FC3: GoTo loc_00408FCE loc_00408FC5: Err.Raise loc_00408FCE: loc_00408FD1: var_74 = &H4008 loc_00408FD8: TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise loc_00408FF2: Len(ecx+edx) = Len(ecx+edx) - 00000007h loc_00409004: var_44 = Right(, Len(ecx + edx)) loc_0040902E: ecx = var_44 loc_00409046: loc_0040904C: loc_0040905E: neg edx loc_00409060: sbb edx, edx loc_00409063: neg edx loc_00409078: neg eax loc_0040907A: sbb eax, eax loc_0040907C: neg eax loc_00409080: If (Form1.Backcolor = %x1 = 00403880h) <> 0 Then GoTo loc_0040909C loc_00409090: ecx = "Idle" loc_0040909A: ecx = 00403880h loc_0040909C: loc_004090B5: neg edx loc_004090B7: sbb edx, edx loc_004090BA: edx = (%x1 = Form1.Left = Form1.Backcolor = %x1) + 1 loc_004090C9: neg eax loc_004090CB: sbb eax, eax loc_004090CD: eax = (Form1.Left = %x1 = %x1 = Form1.Backcolor) + 1 loc_004090D0: If (%x1 = Form1.Left = Form1.Backcolor = %x1) + 1 <> 0 Then GoTo loc_00409229 loc_004090F5: var_94 = "" loc_0040914A: var_28 = text1.Backcolor = %x1 & 00404070h & %x1 = Form1.Backcolor & "13#1" & "Updating..." loc_00409164: Form1.Text = var_28 loc_004091B4: var_88 = FFFFFFFFh loc_004091BE: var_24 = "{0} - {1}" loc_00409235: ecx = TextBox.Backcolor = %x1 loc_0040923D: ecx = %x1 = Form1.Backcolor loc_0040923F: loc_0040924A: ecx = edi loc_0040926E: var_94 = "" loc_004092C0: var_28 = text1.Backcolor = %x1 & 00404070h & %x1 = Form1.Backcolor & "13#1" & "Update in:" loc_004092C8: call MSVBVM60.DLL.__vbaStrI2(%x1 = Form1.Index, var_28) loc_004092E1: var_30 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(%x1 = Form1.Index, var_28) loc_004092EB: Form1.Text = var_30 loc_00409335: DoEvents loc_0040933B: var_4 = 0 loc_00409347: GoTo loc_00409397 loc_00409396: Exit Sub loc_00409397: Exit Sub loc_004093B4: Exit Sub End Sub Private Sub dirsettings_Click() '406EF0 loc_00406F12: var_8 = &H401188 loc_00406F52: var_24 = 10 loc_00406F8F: Form1.Show esi, 0040D04Ch End Sub Private Sub miscsettings_Click() '4087E0 loc_00408802: var_8 = &H401210 loc_00408842: var_24 = 10 loc_0040887F: Form1.Show esi, 0040D074h End Sub Public Function WriteToMsn(type1, r_sWMContentID, r_sFormat) '406B00 loc_00406B22: var_8 = &H401178 loc_00406B8A: Proc_0040B680("", esi, ecx) loc_00406BA2: If 40D010h <> esi Then GoTo loc_00406BAB loc_00406BA9: GoTo loc_00406BB5 loc_00406BAE: If 40D010h <> 1 Then GoTo loc_00406BBE loc_00406BB5: loc_00406BB8: ecx = "Music" loc_00406BBE: loc_00406BC7: var_18 = 0040D014h loc_00406BF2: var_18 = Replace(var_18, "&Song", Form1.Hwnd = %x1, 1, -1, 0) loc_00406C0E: var_18 = Replace(var_18, "&Artist", %x1 = Form1.Hwnd, 1, -1, 0) loc_00406C19: var_1C = 0040D018h loc_00406C39: var_1C = Replace(var_1C, "&Song", Form1.Hwnd = %x1, 1, -1, 0) loc_00406C55: var_1C = Replace(var_1C, "&Artist", %x1 = Form1.Hwnd, 1, -1, 0) loc_00406CAF: call MSVBVM60.DLL.__vbaI2Abs(type1) loc_00406CB6: call MSVBVM60.DLL.__vbaStrI2(MSVBVM60.DLL.__vbaI2Abs(type1)) loc_00406D0D: var_58 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(MSVBVM60.DLL.__vbaI2Abs(type1)) & "" & r_sFormat & "" & Replace(var_18, 4208760, 4208768, 1, -1, 0) loc_00406D39: var_64 = var_58 & "" & Replace(Replace(var_1C, 4208760, 4208768, 1, -1, (Form1.Hwnd = %x1 = "Idle")), 4208760, 4208768, 1, -1, (Form1.Hwnd = %x1 = "Idle")) & "" loc_00406D85: var_20 = var_64 & 00403880h & "" & r_sWMContentID & "" & 00403894h loc_00406DC9: var_30 = &H547 loc_00406DDA: var_28 = VarPtr(var_20) loc_00406DF0: var_2C = LenB(var_20) loc_00406DF3: loc_00406DFE: Var_Ret_1 = "MsnMsgrUIManager" loc_00406E07: FindWindowEx(00000000h, "", Var_Ret_1, 00000000h) loc_00406E0E: GetLastError loc_00406E1E: If Then GoTo loc_00406E39 loc_00406E30: SendMessage(FindWindowEx(00000000h, FindWindowEx(00000000h, var_24, Var_Ret_1, 00000000h), Var_Ret_1, 00000000h), 0000004Ah, 00000000h, VarPtr()) loc_00406E35: GetLastError loc_00406E39: If Then GoTo loc_00406DF3 loc_00406E40: GoTo loc_00406E9D loc_00406E9C: Exit Sub loc_00406E9D: End Function Private Sub Proc_0_7_4080E0() loc_00408109: var_14 = &H4011A0 loc_00408110: var_10 = 0 loc_00408117: var_C = 0 loc_0040811E: var_4 = 1 loc_00408125: var_4 = 2 loc_0040812E: On Error Resume Next loc_00408134: var_4 = 3 loc_00408150: var_3C = Me.BackColor loc_0040815C: If var_3C >= 0 Then GoTo loc_0040817B loc_00408173: var_A4 = arg_C loc_00408179: GoTo loc_00408185 loc_0040817B: var_A4 = 0 loc_00408185: var_54 = 0 loc_0040818C: var_5C = &H8002 loc_0040819B: Var_Ret_1 = (var_3C > 0) loc_004081A1: var_6C = Var_Ret_1 loc_004081B4: If word ptr var_6C = 0 Then GoTo loc_00408598 loc_004081BA: var_4 = 4 loc_004081D6: var_28 = Form1.ForeColor loc_004081DB: var_68 = var_28 loc_004081E2: If var_68 >= 0 Then GoTo loc_00408201 loc_004081F9: var_A8 = var_68 loc_004081FF: GoTo loc_0040820B loc_00408201: var_A8 = 0 loc_0040820B: loc_0040823D: For Each arg_8 In GUID(00403B2Ch) loc_00408243: var_94 = For Each arg_8 In GUID(00403B2Ch) loc_00408249: GoTo loc_004083FE loc_0040824E: var_4 = 5 loc_00408268: Form1.00403EC4h = PropBag.ReadProperty(0, arg_C) loc_0040826D: var_64 = Form1.Reset loc_00408274: If var_64 >= 0 Then GoTo loc_00408296 loc_0040828E: var_AC = var_64 loc_00408294: GoTo loc_004082A0 loc_00408296: var_AC = 0 loc_004082A0: loc_004082B3: Form1.Hwnd = 0000001Ch loc_004082BF: If var_68 >= 0 Then GoTo loc_004082E1 loc_004082DF: GoTo loc_004082EB loc_004082E1: var_B0 = 0 loc_004082EB: loc_004082F4: var_4 = 6 loc_004082FB: call Err(Me.Reset, 0000005Ch, 00000068h, 00000068h, 00000068h, 00000068h) loc_0040830C: var_64 = Err(Me.Reset, 0000005Ch, 00000068h, 00000068h, 00000068h, 00000068h) loc_0040831C: Form1.Err(Me.Reset, 0000005Ch, 00000068h, 00000068h, 00000068h, 00000068h) = PropBag.ReadProperty(var_60, 0) loc_00408328: If var_64 >= 0 Then GoTo loc_00408347 loc_0040833F: var_B4 = var_64 loc_00408345: GoTo loc_00408351 loc_00408347: var_B4 = 0 loc_00408357: setz al loc_0040835A: neg eax loc_0040836F: If word ptr var_6C = 0 Then GoTo loc_004083DB loc_00408371: var_4 = 7 loc_0040838B: Form1.%x3 = PropBag.ReadProperty(00403ED4h, 0000001Ch) loc_00408397: If var_64 >= 0 Then GoTo loc_004083B9 loc_004083B7: GoTo loc_004083C3 loc_004083B9: var_B8 = 0 loc_004083C3: loc_004083CC: ecx = "" loc_004083DB: var_4 = 9 loc_004083F2: Next arg_8 loc_00408405: If var_94 <> 0 Then GoTo loc_0040824E loc_0040840B: var_4 = 10 loc_00408417: var_64 = arg_C loc_00408427: Form1.BackColor = "" loc_0040842C: var_68 = var_64 loc_00408433: If var_68 >= 0 Then GoTo loc_00408452 loc_0040844A: var_BC = var_68 loc_00408450: GoTo loc_0040845C loc_00408452: var_BC = 0 loc_0040845C: loc_00408465: var_28 = 0 loc_0040848E: For Each arg_8 In GUID(00403EC4h) loc_00408494: var_9C = For Each arg_8 In GUID(00403EC4h) loc_0040849A: GoTo loc_0040858B loc_0040849F: var_4 = 11 loc_004084B1: var_28 = IsSet(Me.GetPalette) loc_004084BA: var_54 = var_28 loc_004084BD: var_5C = &H4009 loc_0040850B: call MSVBVM60.DLL.__vbaCastObj(var_28, 00403EC4h, "", var_64, 00403EC4h, 00000064h, 00000064h, 00000064h, 00000064h) loc_00408546: Form1.Proc_0_7_4080E0(arg_8, var_2C, var_2C, Form1.SaveProp.1) loc_00408568: var_4 = 12 loc_0040857F: Next arg_8 loc_00408592: If var_9C <> 0 Then GoTo loc_0040849F loc_0040859D: GoTo loc_004085CF loc_004085CE: Exit Sub loc_004085CF: End Sub Muto obrigado
  9. Mrk3004

    duvida com variaveis

    uma questão postou Mrk3004 C, C++

    ola galera , acabei de me registrar no forum , estou com algumas duvidas com as variaveis char , int ,double e float. minha duvida é somente quando devo usar cada uma delas , pelo o que eu entendi a char é quando o valor é uma letra , a int é quando o valor é um numero inteiro a float é quando o valor é um numero real , e a double é igual a float so que com maior capacidade . isso esta correto? tenho outra duvida em relação ao codigo %1d estava seguindo umas apostilas aqui onde tem uma função printf que exibe o valor de uma varivel longe int : printf ("\nValor da variavel (long) : %1d", varivel); porq a necessidade desse 1 entre %d ? vlw galera
×
×
  • Criar Novo...