ramon

Aqui é sobre html você deve postar la no forum de php

Bom ta dando este erro Warning: fopen(http://www.meusite.com.br/planeta/on/online.osg): failed to open stream: No such file or directory in /home/retornoce/public_html/planeta/on/usuarios.php on line 31 Warning: fputs(): supplied argument is not a valid stream resource in /home/retornoce/public_html/planeta/usuarios.php on line 32 Warning: fclose(): supplied argument is not a valid stream resource in /home/retornoce/public_html/planeta/on/usuarios.php on line 33 Warning: chmod(): No such file or directory in /home/retornoce/public_html/planeta/usuarios.php on line 34

valeu vou dar uma olhada

alguém tem um script que mostre quantos usuarios estao no meu site simples para eu colocar no meu site

Ou seja sua variavel recebeu um tipo de dado incorreto

Sim é isso Valeu!

Aqui neste link você pode conseguir um codigo fonte completinho entiludado "JOGO DE XADREZ COMPLETO ON-LINE, OFF-LINE" De uma olhada http://vbmania.com.br/vbmcategory.php?varT...2&varOrdem=nome Falou!

exite algum comando de tabela de constantes em VB como em C ex ( int const []={1,2,3,4})

lembre-se que você deve instalar as dlls e ocx do vb no window 98 pois se não vai da erro com certeza se eu criar um programa que só use a dll MSVBVM60.DLL do vb 6 este programa rodara tranquilamente no win xp sem precisar copiar esta dll pois o win xp já tem esta dll em seu sistema de arquivo Acredito que o windows 200 tambem já tem mas o win 98 não tem pois o vb6 foi lancado depois da craicao do 98

beleza já consegui Pode fechar o tópico

Como especificar uma no nome de usuario do moderador, administrador do forum para diferenciar dos usuarios

Vou dar uma olhada

Como que se cria um controle alguém tem um exemplo bem pequeno de um controle qualquer um um tutorial?

Valeu ajudou sim!

alguém sabe como eu posso colocar no meu site um script onde coloco as ultimas noticias do forum igual ao do site scriptbrasil

Mas o que você realmente quer saber ta meio confuso a sua duvida resuma ela

Valeu Graymalkin!

Teria como passar tipo o nome de um controle para uma variavel e dpois usar ele com as propiedades referente ao controle Tipo variavel= "Form1" variavel.Caption = "teste" Meio maluco né Mas será que dá

O Graymalkin e seus codigos pequenos mais um que eu vou guardar para a minha coleção já que o meu é enorme!

Na verdade é so curiosidade mesmo

Bom ai vai um exemplo Coloque num modulo Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Public Const HKEY_CLASSES_ROOT = &H80000000 Public Const ERROR_SUCCESS = 0& Const REG_OPTION_NON_VOLATILE = &O0 Const KEY_ALL_CLASSES As Long = &HF0063 Const KEY_ALL_ACCESS = &H3F Const REG_SZ As Long = 1 Public Function RegGetString$(hInKey As Long, ByVal subkey$, ByVal valname$) Dim RetVal$, hSubKey As Long, dwType As Long, SZ As Long, v$, r As Long RetVal$ = "" r = RegOpenKeyEx(hInKey, subkey$, 0, KEY_ALL_CLASSES, hSubKey) If r <> ERROR_SUCCESS Then GoTo Quit_Now SZ = 256: v$ = String$(SZ, 0) r = RegQueryValueEx(hSubKey, valname$, 0, dwType, ByVal v$, SZ) If r = ERROR_SUCCESS And dwType = REG_SZ Then RetVal$ = Left(v$, SZ - 1) Else RetVal$ = "" End If If hInKey = 0 Then r = RegCloseKey(hSubKey) Quit_Now: RegGetString$ = RetVal$ End Function Public Sub ConnectW3(url$) On Error GoTo fout_connectw3 Dim strProgram$, strDDETopic$, strDDEItem$ Dim intLoaded% 'make on Form1 a invisible textbox named text2 strProgram = RegGetString(HKEY_CLASSES_ROOT, "http\shell\open\command", "") strDDETopic = UCase(RegGetString(HKEY_CLASSES_ROOT, "http\shell\open\ddeexec\Application", "")) & "|" & RegGetString(HKEY_CLASSES_ROOT, "http\shell\open\ddeexec\Topic", "") strDDEItem = url$ With Form1.Text2 .LinkTopic = strDDETopic .LinkItem = strDDEItem & ",," & -1 .LinkMode = 2 .LinkRequest End With Exit Sub fout_connectw3: If Err.Number = 282 Then If intLoaded = 0 Then Shell strProgram, vbNormalFocus intLoaded = 1 ElseIf intLoaded <= 5 Then intLoaded = intLoaded + 1 Else Err.Number = vbObjectError + 1 GoTo fout_connectw3 End If Resume ElseIf Err.Number <> 0 Then MsgBox "Fatal error while communicating to browser" Exit Sub End If End Sub Coloque um command_button e duas textbox no form e cole este codigo Private Sub Command1_Click() Call ConnectW3(Text1.Text) End Sub Private Sub Form_Load() Text1.Text = "http:\\www.google.com.br" End Sub Falou!

Mas pra que fazer se o controle já oferece Bom basta clicar com o botao direito do mouse sobre a textbox e você consegue selecionar tudo que estiver dentro da textbox

Por que você não tenta criptografar o arquivo, assim o usuario não conseguiria entender o que esta escrito no arquivo.

Valeu consegui Tenho que ativar ou configurar alguma coisa no meu forum para que eu possa receber mensagens de usuarios que me enviarem. Pois eu fiz um teste o forum diz que enviou a mensagem mas eu verifico minha caixa postal de e-mail no outlook e não vem nada

Como eu faço para deasbilitar Enquetes do forum Invision 1.3