Guest Flápi dx Postado Março 5, 2004 Denunciar Share Postado Março 5, 2004 gostaria de saber se esse script realmente funciona ou é apenas + uma merda acumulando no regedit=========comando============L_Welcome_MsgBox_Message_Text = "Deseja melhorar a performance de conexão na Internet ?"L_Welcome_MsgBox_Title_Text = "Internet"Call Welcome()' ********************************************************************************' *' * Métodos relacionados ao Registro.' *Dim WSHShellSet WSHShell = WScript.CreateObject("WScript.Shell")WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\DefaultMSS", 536,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\DefaultRcvWindow", 3216,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\DefaultTTL", 128,"REG_SZ" WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\PMTUBlackHoleDetect", 0,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\PMTUDiscovery", 0,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\SackOpts", 0,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\Tcp1323Opts", 0,"REG_DWORD"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\NWlink\NDI\params\cachesize\default", 16,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\Class\Net\0000\IPMTU", 576,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\Class\NetTrans\0000\IPMTU", 576,"REG_SZ"WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\Class\NetTrans\0000\MaxMTU", 576,"REG_SZ"WSHShell.PopUp "Concluído...Reinicie o computador para salvar as configurações"' ********************************************************************************' *' * Bem-vindo' *Sub Welcome() Dim intDoIt intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _ vbOKCancel + vbInformation, _ L_Welcome_MsgBox_Title_Text ) If intDoIt = vbCancel Then WScript.Quit End IfEnd Sub=======comando===================peguei o arquivo no site http://www.win9x.ubbi.com.br/iniciar.html#Atalhopor favor me expliquem se realemnte funciona esse script Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Flápi dx Postado Março 5, 2004 Denunciar Share Postado Março 5, 2004 se vocês não acharem o arquivo aqui o linkhttp://www.angelfire.com/falcon/principal/zipfiles/Speed.zip Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Deividy Postado Março 5, 2004 Denunciar Share Postado Março 5, 2004 Cara não testei pra saber se ele funciona mais esse scritp cria um objeto .OCX chamado WSHSHELL isso é uma programação em asp esse objeto trabalha dentro das pastas do windows, nesse caso ele esta trabalhando no registro do windows dentro do seu pc se isso funciona eu não sei porque ele altera uma sere de informações dentro do registro.peleza espero ter te ajudado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Flápi dx Postado Março 5, 2004 Denunciar Share Postado Março 5, 2004 vlw Deividy .. ainda bem q fiz um beckup antes de executar Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Deividy Postado Março 5, 2004 Denunciar Share Postado Março 5, 2004 funciono queria saber se melhora mesmo. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Março 6, 2004 Denunciar Share Postado Março 6, 2004 é realmente funfou... mas será q funciona? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Eddie_666 Postado Março 7, 2004 Denunciar Share Postado Março 7, 2004 Só corrijindo uma coisa que foi dito, isso não é asp e sim vbscript. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Deividy Postado Março 8, 2004 Denunciar Share Postado Março 8, 2004 Só corrijindo uma coisa que foi dito, isso não é asp e sim vbscript. hum mais ASP não utiliza vbscript? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 igorSM Postado Março 9, 2004 Denunciar Share Postado Março 9, 2004 ASP tambémn pode usar javascript, além disso, ASP e vbscript são muito diferentes. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Deividy Postado Março 9, 2004 Denunciar Share Postado Março 9, 2004 nossa agora fique encucado.alguém pode me passar link que me fale de cada uma? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Flápi dx
gostaria de saber se esse script realmente funciona ou é apenas + uma merda acumulando no regedit
=========comando============
L_Welcome_MsgBox_Message_Text = "Deseja melhorar a performance de conexão na Internet ?"
L_Welcome_MsgBox_Title_Text = "Internet"
Call Welcome()
' ********************************************************************************
' *
' * Métodos relacionados ao Registro.
' *
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\DefaultMSS", 536,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\DefaultRcvWindow", 3216,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\DefaultTTL", 128,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\PMTUBlackHoleDetect", 0,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\PMTUDiscovery", 0,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\SackOpts", 0,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\MSTCP\Tcp1323Opts", 0,"REG_DWORD"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\VxD\NWlink\NDI\params\cachesize\default", 16,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\Class\Net\0000\IPMTU", 576,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\Class\NetTrans\0000\IPMTU", 576,"REG_SZ"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\Class\NetTrans\0000\MaxMTU", 576,"REG_SZ"
WSHShell.PopUp "Concluído...Reinicie o computador para salvar as configurações"
' ********************************************************************************
' *
' * Bem-vindo
' *
Sub Welcome()
Dim intDoIt
intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub
=======comando===================
peguei o arquivo no site http://www.win9x.ubbi.com.br/iniciar.html#Atalho
por favor me expliquem se realemnte funciona esse script
Link para o comentário
Compartilhar em outros sites
9 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.