Graymalkin

Como assim "executar"? Se o arquivo que você está criando for um .bat, aí sim você pode executar usando o shell. Mas já se for um .txt o que você pode fazer é: shell "start c:\teste.txt", para que o programa padrão para arquivos texto seja aberto com o arquivo. Abraços, Graymalkin

Não tem algo errado nesse código, não? Do while Lin <> "" Lin = Lin + 1; loop Repare que na condição do while o "Lin" é tratado como uma string, todavia a instrução seguinte faz uso dele como um inteiro. Creio eu que o certo seria: do while not rs.eof lin = lin + 1 rs.movenext loop Onde "rs" é a tabela e "lin" a variável que conterá o número correspondente a quantidade de registros. ok? Graymalkin

Não, ele tem é acesso a .NET Framework, ou seja, ele é capaz de fazer tudo que o VB.NET e o C# podem. Graymalkin

O que você quer dizer com "ler um arquivo de figura"? Com o código abaixo você consegue exibir um arquivo bmp em uma picturebox: picture1.picture = loadpicture("c:\pasta\arquivo.bmp") ok? Graymalkin

Tem dois jeitos de fazer isso (se a impressora for matricial, dê preferência ao primeiro exemplo): Primeiro exemplo n = freefile() open "lpt1" for output as #n ? #n, "primeira linha" ? #n, "segunda linha" close #n Segundo exemplo printer.print "primeira linha" printer.print "segunda linha" printer.enddoc ok? Graymalkin

O que não me agrada no Delphi é a síntaxe Pascal (com aqueles malditos ponto-e-vírgulas!!!). Mas, já que vocês comentaram sobre a .NET Framework, tenho quase certeza de que a última versão do Delphi (7, se não me engano) saiu justamente para esta plataforma. Abraços, Graymalkin

Ou checar a propriedade RecordCount. Abraços, Graymalkin

O código abaixo já vai te dar uma idéia de como detectar o Internet Explorer: 'Coloque esse código em um módulo Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean Dim sSave As String, Ret As Long Dim Achou As Boolean Ret = GetWindowTextLength(hwnd) sSave = Space(Ret) GetWindowText hwnd, sSave, Ret + 1 If Len(Trim(sSave)) > 0 Then Achou = InStr(1, sSave, "Internet Explorer") > 0 Else Achou = False End If If Achou Then EnumWindowsProc = False Else EnumWindowsProc = True End If Debug.Print "Achou: " & Time End Function 'Fim do módulo 'Coloque esse código em algum procedimento (evento click de um botão, por exemplo) EnumWindows AddressOf EnumWindowsProc, ByVal 0& Na janela Immediate aparecerá a palavra "Achou" seguida da hora atual quando for detectada a presença de uma janela com parte do título "Internet Explorer". Abraços, Graymalkin

Para criar um arquivo basta fazer: n = freefile() open "c:\teste.txt" for output as #n ? #n, "primeira linha" ? #n, "segunda linha" close #n ok? Graymalkin

O CommitTrans não deveria estar depois do Execute? Teste aí e veja se há diferença. Abraços, Graymalkin

Use o método AddItem da Combobox. Exemplo: combo1.AddItem "teste" ok? Graymalkin

Coloque aqui o código completo da abertura da conexão e da tabela, pois assim fica mais fácil descobrir o que há de errado. Abraços, Graymalkin

Você perguntou sobre o Zope, mas posso te afirmar que o Plone tem isso (o fórum completo). Abraços, Graymalkin

O VB.net, junto com o C++ e o C#, podem ser baixados no site da Microsoft. Basta procurar por .net Framework SDK. Só lembre-se que você terá apenas o compilador para o console, sem interface gráfica, ou seja, sem janelinhas e botões. Para tal recurso você precisará do Visual Studio .net completo ou as versões separadas, como o VB .net Standard (eu comprei esse na Brasoftware) ou o C# Standard. Abraços, Graymalkin

Tentei, mas só funciona caso o prompt esteja em uma janela, não em tela cheia. Valeu. Graymalkin

Já consegui resolver. Coloquei um TSR para rodar antes que permite trocar teclas, dessa forma troquei o ENTER pela letra "l", daí como não consigo mandar o ENTER mando o "l". Mesmo assim, obrigado. Graymalkin

Não, isso eu sei, Eddie, eu preciso é enviar o enter para outro programa. Abraços, Graymalkin

Sistema: Win2000/XP; Browser: IE6.0; Player(mp3): XPlayer; Player(vídeo): (não tenho preferência).

É possível simular que uma tecla está sendo pressionada em C? Explico: consigo enviar toques de tecla para qualquer programa (inclusive no prompt) utilizando o VB ou o Python, porém certas teclas, como o ENTER (que é o que preciso), não funcionam quando enviadas a um programa no prompt em tela cheia. E para o meu azar, o programa alvo só funciona em tela cheia (ele é para DOS, porém tem uma interface gráfica que não é apresentável em uma janela, só em tela cheia). Pergunto: existe algum meio de fazer com que o ENTER seja pressionado em qualquer programa (que terá o foco principal) utilizando C? Desde já, agradeço qualquer ajuda. Abraços, Graymalkin

Se o acesso as janelas é feito através de menus, basta desabilitá-los quando uma janela for aberta e habilitalá-los novamente quando a mesma for fechada. Para tanto basta fazer: 'Coloque no evento Load da janela menu.Enabled = False 'Desativa 'Coloque no evento Unload da janela menu.Enabled = True 'Ativa É isso? Abraços, Graymalkin

Qualquer linguagem que tenha acesso as APIs do Windows poderá fazer isso. Segue aí um exemplo em VB (basta setar a propriedade BorderStyle para 0 e a propriedade Picture para a figura desejada, lembrando que a figura deverá ter uma determinada cor que ficará "invisível" e esta mesma cor deve estar presente no primeiro pixel da imagem.): Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long 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 Const RGN_DIFF = 4 Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Sub Form_Activate() Dim X, Y As Integer Me.ScaleMode = 3 CurRgn = CreateRectRgn(0, 0, Me.ScaleWidth, Me.ScaleHeight) transcolor = GetPixel(Me.hdc, 1, 1) Do While Y <= Me.ScaleHeight Do While X <= Me.ScaleWidth If GetPixel(Me.hdc, X, Y) = transcolor Then TempRgn = CreateRectRgn(X, Y, X + 2, Y + 2) success = CombineRgn(CurRgn, CurRgn, TempRgn, RGN_DIFF) DeleteObject (TempRgn) End If X = X + 1 Loop Y = Y + 1 X = 0 Loop success = SetWindowRgn(Me.hwnd, CurRgn, True) DeleteObject (CurRgn) Me.ScaleMode = 1 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End If End Sub ok? Abraços, Graymalkin

Gosto do Pythonwin, porque diferentemente do IDLE, ele mostra os métodos e variáveis quando digitamos "objeto.". Se bem que recentemente, tenho usado o edit no prompt para escrever scripts... :D Já se você quiser uma interface semelhante a do VB e do Delphi baixe o Boa Constructor (e também o pacote wxPython, que é obrigatório para o uso do Boa Constructor). E sinceramente, tenho me adaptado bem ao Python, todavia ainda não tentei fazer programas semelhantes aos que faço no VB, portanto fica meio difícil comparar.... :unsure: Ainda assim, acho que eu apostaria no Python. :D Abraços, Graymalkin

Coloque as seguintes declarações no General Declarations do form ou em um módulo (nesse caso troque o escopo para Public): Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long E coloque esse código no evento MouseMove da PictureBox: If ((X < 0) Or (Y < 0) Or (X > Picture1.Width) Or (Y > Picture1.Height)) Then ReleaseCapture Picture1.Picture = LoadPicture("c:\arq\images\6.gif") Else SetCapture Picture1.hwnd Picture1.Picture = LoadPicture("c:\arq\images\5.gif") End If ok? Abraços, Graymalkin

Tenho também os ícones do BeOS. Vou mandar pra ti. Abraços, Graymalkin

Slipknot, a idéia do dicionário é boa e pode aproveitar um recurso interessante do Python, que é a "serialização". Serializar é transformar um objeto qualquer em um arquivo e depois poder recuperar esse objeto do arquivo. Seguindo o exemplo que você mesmo deu, vejamos como ficaria: #Importa módulo de serialização import pickle #Exemplo que grava o objeto "dados" no arquivo c:\teste.pck dados = {"thb_matrix":"1234-4321", "slipknot":"4321-1234"} arquivo = "c:\teste.pck" h = file(arquivo, "w") #Abre o arquivo c:\teste.pck para escrita ("w") pickle.dump(dados, h) h.close() #Exemplo de como recuperar o objeto do arquivo c:\teste.pck arquivo = "c:\teste.pck" h = file(arquivo, "r") #Abre o arquivo c:\teste.pck para leitura ("r") dados = pickle.load(h) h.close() print dados ok? Abraços, Graymalkin