cara e ate boazinha a video aula mais TIRA A PORRA DO SOM DO TECLADO ISTO IRRITA MUUUUUUUUUUUUUUITOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
pra quem nao esta consguindo fechar o cd cire um variavel Ex. var Comando: string; dps na parte dos "ifs" begin Comando:=Socket.ReceiveText; if Comando='abrecd' then begin MciSendString('Set CdAudio Door Open',nil,0,Handle); end; if Comando='fecharcd' then begin MciSendString('Set CdAudio Door Closed',nil,0,Handle);
Me parece que a função ReceiveText no Server só funciona uma vez, e nesse trecho de código ela é chamada 2 vezes nas condicionais. Isso faz com que a 2ª condição jamais seja alcançada...
O correto é passar a mensagem para uma string e depois manipular como desejar.
cara eu não entendo nada de delphi.. se você pode se ajudar me melhor a falar no msn eu agradecia... meu msn é c0cac00l e o resto hotmail . com valeu..
Junior96jr : Puta é voce que quer os codigos prontos.. se vira.. eu ja aprendi a fazer um profissional .. tu parece pregiçoso . que os trem arrumadin . aaaahh . parece criancinha que n da conta de entende as coisa vai brinca de boneca ou de carrinho vai.
Si duas pessoas estiver usando um servidor e estiver com a porta 23 e 80 abertas(com senha), eu posso conseguir ativar o trojan em alguma vitima neste servidor ?
O servidor usa um Speedtouch(modem) roteado e um HUB.
Criei o trojan testei ele no meu pc 127.0.0.1 mas na hora deu eu conectar a um pc da internet nao funcionou .Deu uma mensagem q a maquina nao respondeu no tempo definido ae nao conecta ao servidor sabe como conertar isso?
Cara, muito boa essas video aulas que vc poe aki no youtube... ajuda com força msm que agente pegue só uma noçaozinha mais depois agente começa a entende. Mais o aprendizado melhor vem daqui mesmo. VLW
Cara eu tbm ja tive esse problema, é pq ele limpa o texto que veio do servidor logo em seguida de fazer qualquer ação, enclusive um "if". entao vc tem que criar uma variavel, tipo assim: var Dados: String;
Dados:= Socket.ReceivedText;
dai depois vc faz a verificação pela variavel "Dados";
cara... parabens pelo video..vc é fera mas tipo.. tenho uma duvida.. no receive message ele soh recebe sempre a primeira ordem, tipo.. ele só abre CD, ele nao sabe fexar a caxinha de CD, e se eu troco a ordem, ele soh faz a primera ordem, ou seja, dai ele soh vai saber fechar, e nao vai saber fazer o resto begin MciSendString('Set CdAudio Door Open',nil,0,Handle); end else if socket.ReceiveText='fecharcd' then begin mciSendString('Set cdaudio door closed wait', nil, 0, handle); etc
ow veio, muito maneiro, muito 10 mas gostaria de saber como transferir arquivos. e alguns desses comandos tipo o de aabrir cd e fechar. Mas com outros aplicativos desligar monitor etc.
BLZ ESSSES ERROS JA RESOLVI, MAS QUANDO DIGITO MEU IP PARA TESTA, QUANDO CLICO EM CONECTAR APARECE: "Asynchronous socket error 10049" Que erro é esse??? Como posso resolve-lo??? vlw!! fui!!
Hm, tente assim. Coloque 'Set CdAudio Door Open wait' ao inves de apenas 'Set CdAudio Door Open' :) no codigo de abrir o cd e o de fechar tambem, veja se funciona...
como deixa o delphi 7 com a interface grafica igual a sua parecendo com windows vista os butons e talz... aqui fica parecendo windows 98 uhasiuhas se puder passa ai os plugins ou skins sei la vlw de novo...
só falta a maioria aqui aprender um pouco da linguagem pascal pra sacar o receba...
Eu n conhecia essa do delphy velho, serio mesmo só sabia fazer uns programas de banco de dados e outros lah... mas essa sua estrategia foi otima cara, parabens me ensinou mt
Shoft, vc sabe me dizer se essa técnica só vale para IPs de rede local? Tento fazer com o IP da internet mas recebo a mensagem Asynchronous Socket Error 10061. Ainda não tentei usar em rede local, mas como vc disse para o vagnercrescencio, se tiver roteador não funciona né? Valeu.
eu descobri o problema... na verdade o servidor deve estar sendo executado (ou residente na memória) para o cliente funcionar... Shoft, vc conhece algum código Delphi que deixe um programa residente na memória?
Você pode deixar o programa invisível e que não apareça no CTRL ALT DEL, aí a vitima não terá como fechar, e coloque também o código para o programa iniciar junto com o windows. Procure no google que esses códigos são faceis de achar.
bom, o problema do roteador é que o trojan não tem acesso ao pc do cara por quê a porta fica bloqueada nas configurações, aí só pedindo pra vitima liberar tal porta, o que é meio dificil de a vitima ser tão besta e fazer isso.
mas não precisa estar em rede local, se a pessoa não tiver usando roteador, tá susse.
krak,esse video apareceu na record
ThePauloVideos360 1 year ago
Caralho que som chato esse viu
ai galera pra quem quer baixar um progama pra roubar senhas usa esse
Adrianpinto100 1 year ago
Essa Porta (Port) é diferente em cada pc ? Eu fiz no notebook não sei se tem diferença '-'
malabaris1 1 year ago
SHOFT MANDA OR COMANDOS PARA BAIXAR POR FAVOR
TA DANDO ERRO NO COMANDO ABRE CD ENO FECHA CD
limalucas200 1 year ago
This has been flagged as spam show
nao ta dando certo
quando coloco conectar aparece erro na conexao
e abre uma janela escrito: Asynchronous socket error 10061
mesmo com o ip local
se puder me ajudar agradeço
msn brunorobertoribeiro@hotmail.com
obrigado
mezzenga2 1 year ago
cara e ate boazinha a video aula mais TIRA A PORRA DO SOM DO TECLADO ISTO IRRITA MUUUUUUUUUUUUUUITOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
rose5709 1 year ago
Comment removed
rose5709 1 year ago
ahhh velho... vai aprender a identar teu código antes de postar um vídeo.
diguxo21 1 year ago
curti mas aew se eu quizer fazer um com conexão reversa em vez de eu por o comando de conectar no servidor funciona?
em vez de por o bagui de por o ip no edit 1 eu posso por direto o no-ip meu assim a vitima se conecta a mim e o resto eh comigo neh?
heresamuel 1 year ago
pra que serve isso? da pra faze um que mande o login e senha de uma pessoa que jogue habbo?
MrMatheusviana 1 year ago
pow favor me ajuda a baixar um trojan sem virus o shark me manda ai
tiagoramossilva1 1 year ago
é um teclado ou uma maquina de escrever? '-'
heronradical 1 year ago
label1.caption:='Conectado';
watcros 1 year ago
delphi7,i tlove you
cooltea1988 1 year ago
Gostei,boa video aula.
Abraços
leo00sena 1 year ago
Olá shoft se suportar o um projeto em delphi 7 você pagar € 300.
entre em contato comigo para IM malkom24@hotmail.c
adAmo197911 1 year ago
to com uma duvida pelo trojan
vc manda para vitima oq
o servidor ou projeto la
?
ai eu mando quando ele abrir oq eu fasso?
se eu colocar "abrir cd" oq acontece com a vitima?
obrigado
estarei arguardando a sua resposta
BillyTecoXandy 1 year ago
@BillyTecoXandy
ele manda o servidor xD
worldgunz 1 year ago
tem como fazer trojan .exe com esse programa??????????
brunogomespereira13 1 year ago
*-* me passa msn? tem como me passar o link do dowload? Obg. agradecço OBS: video aula muito boa :D
xDaavix 1 year ago
putz lammers picaretas
usem um gravador de tela sem essa porra de barulho de maquina de datilografar
marc2377 2 years ago
velho '-' isso é programaçao mto basica
passa algo mais complicado ?
mto complexo :D
e nao com erros qe nem esse tem ai
Juniorock1994 2 years ago
meu esse barulho da maquina de escrever irrita pra kct!!
f4bi4n0 2 years ago
eu desisti de ver o video por causa do teclado dele faz muito barulho e e irritante
BrunoValente282 2 years ago
Comment removed
thomasstuani 2 years ago
Genio,,,,,,no video tem uma barra que se chama volume....so tu mexe nela saco ;)
thomasstuani 2 years ago
@BrunoValente282
Então desliga o som, gênio...
kescores 2 years ago
cara, bom tuto, mas nao esta funcionando.
enquanto está em testes no localhost (127.0.0.1) ele funciona normalmente, mas na internet nao ta funcionando. da uma ajuda ae...
MrDudynho 2 years ago
can you uplad the dclsockets70.bpl and give me the download link?
Hackenxl100 2 years ago
@Hackenxl100
No próprio delphi (7) já vem é só instalar o pacote.
programmerfull 1 year ago
This has been flagged as spam show
@programmerfull pow favor me ajuda a baixar um trojan sem virus o shark
tiagoramossilvapunk@hotmail.com
tiagoramossilva1 1 year ago
Como você conseguir ter o botão "Internet" no topo da página?
thomas7310 2 years ago
Podiam me dar o link download do delphi 7 n consigo encontrar
cumpz ;)
Mig4ngMt2 2 years ago
@Mig4ngMt2
Se ainda nao conseguiu baixar procure no google como se estivesse prourando imagenspr exemplo: download delphi 7.
programmerfull 1 year ago
@programmerfull pow favor me ajuda a baixar um trojan sem virus o shark
tiagoramossilva1 1 year ago
ae alguem pode colocar o site de download ae porq nao to axando na internet os que eu axo eu nao consigo abrir =\ quem puder me ajudar eu agradeço
theslipknot966 2 years ago
coloque um ediitii kkk baianinho programadorzinho
sistematizado 2 years ago
pau no cú!
andersonejoelma 2 years ago
Me ajudou muito na escola..(TCP/IP)
detrever 2 years ago
Comment removed
Xcino123456 2 years ago
aff que bom
superni5654 2 years ago
muito bom
rubemsantana1 2 years ago
This comment has received too many negative votes show
vc parece q estar ensinando isso para cavalos e nao gente...
eu levu minhas coisas ha serio, ainda mais programaçao
daniel15123 2 years ago
em Shoft porque vc nao faz um Trojan para abrir o cu do eduardo14able.
vlw vo ficar esperando o desenvolvimento desse trojan.
kkkkkkkkkkk
LenonConstantino 2 years ago
LOL olha o comentario do eduardo, para de falar merda, é só um trojan, ninguem precisa de um bixo como vc, -.-
gravyerd 2 years ago
This comment has received too many negative votes show
por que vc nao fas um virus para abri teu cu TROXA
eduardo14able 2 years ago
Tu é quem ,tu é o "oxente"??
Mas que porra de lixo podre é essa merda ae ?
Uma máquina de escrever o bagulho ?
ahh,legal o código ae..
mas sou um cara sério quanto a criar programas .
Útil cara fazer um programa de resposta personalizado para falar com o cliente etc...
Falo .
WDHellSOnLineKILLER 2 years ago
um trojan local é foda =D
meu pc não conecta :(
k pena...
gravyerd 2 years ago
Cara eu recomendo mudar o capition pra outro nome em vez de form1 e tbm trocar o icone ;xD;
crackermal 2 years ago
ótimo, existe um erro, Quando vc executa ele, só pode usar LOCALHOST (127.0.0.1) tenta usar QUALQUER OUTRO IP, vai dar erro -.- affe
gravyerd 2 years ago
Comment removed
HRhirochina 2 years ago
amigo por favor confira direito.
Nao eh sso nao.
Esse trojan eh bem basico,procure por trojans avançados com conexao reversa.
HRhirochina 2 years ago
jvictor0021 2 years ago
uma pergunta onde que eu baixo esse delphi ???? me passa o site ae
andersoniroumen 2 years ago
no meu delphi aqui quando, a função do clientsocket1.socket.sendText tem que ter o abrir cd / fechar cd entre ()
Diegoogc 2 years ago
ô povo ignorante!
falando que prorat etc tem mais funfões, é claro que eles tem, essa video aula é um exemplo, vc pode por mais coisas se vc souber ¬¬
cizkin 2 years ago
po super complicado o turkojan e o prorat eh bem mais simples e tem muito mais funções.
skloading 2 years ago
noob lammer tbm quem usa esse tipo de programas! isso eh um trojan simples.
Eh por isso que a internet eh um lxo!
HRhirochina 2 years ago
ta, e pra que este hacker serv xD
gravyerd 2 years ago
Er, só queria adicionar uma informação...
Me parece que a função ReceiveText no Server só funciona uma vez, e nesse trecho de código ela é chamada 2 vezes nas condicionais. Isso faz com que a 2ª condição jamais seja alcançada...
O correto é passar a mensagem para uma string e depois manipular como desejar.
Isso resolve o problema de não fechar o CD...
Não sei se já postaram
NefosG 2 years ago
vocêis muito burros cara vocêis nem sabem c++ como quer criar este tipo de virus hein?
pacmanmel 2 years ago
que coisa mais leiga e ridicula
RicardoV8ito 2 years ago
cara eh um tuto basico!
HRhirochina 2 years ago
Não deu,' criei o Client e Tbm o Servidor ,Salvei pah Executei o Servidor e Abri o Cliente e ele Não Abre Minha CD R ;/ Código errado?
aLiFinHu4Ever 2 years ago
quando eu do play (f9) da esse erro labell.caption:='Conectando...'; fica com a linha vermelha e a linha vermelha é que da erro neh ?
eujogocz 2 years ago
label1.caption:='Conectando... ';
tente assim amigo
HRhirochina 2 years ago
aéééééééééé :D
puts cara eu pensei que era labell com 2 l mais nao era 1 kkkkkk valew cara (L)
eujogocz 2 years ago
è pq vc errou no nome da "Label".
Vc deve colocar "Label1.Caption:= 'Conectando...';
EdvaldoSzymonek 2 years ago
oi... olha era bom fazeres uma video aula de como criar um notificador de ips.. assim podiamos ver o ip da victima quando ela abri se o servidor..
coca0oL 2 years ago
è só vc fazer o trojan, mais con conexão reversa, ou seja, a vitima se conecta a vc, e vindo ja com o IP e o nome do computador.
EdvaldoSzymonek 2 years ago
cara eu não entendo nada de delphi.. se você pode se ajudar me melhor a falar no msn eu agradecia... meu msn é c0cac00l e o resto hotmail . com valeu..
coca0oL 2 years ago
ae Shoft, criei as variaveis mas mesmo assim ele não fecha o cd, sabe como posso arrumar, o abrir funfa normal.
abraços
jaoeduardoraimundo 2 years ago
Comment removed
jaoeduardoraimundo 2 years ago
algum podi ajuda to botando mais funçoes nomeu serve + ele so executa primeiro comando
andrerj3000 2 years ago
Mto foda!
RedSkullHK 2 years ago
junior96jr :se num sabe brinca num desce pro play xD
jvitor03 2 years ago
Junior96jr : Puta é voce que quer os codigos prontos.. se vira.. eu ja aprendi a fazer um profissional .. tu parece pregiçoso . que os trem arrumadin . aaaahh . parece criancinha que n da conta de entende as coisa vai brinca de boneca ou de carrinho vai.
BrenoArantesPereira 2 years ago
qual a diferença desse programa e o turkojan ou pro rat?
hacker0branko 2 years ago
sua puta não inssina direit e o código cade
junior96jr 2 years ago
to brincando com tigo ta bom pra kramba conssegui faze esse virus ja to ferrando com os meus amigo é só pra ri kkkkkk
junior96jr 2 years ago
mas que ruim meu deus
junior96jr 2 years ago
seila nem vi o video ainda se for bom digo se não for bom tbm digo kk
junior96jr 2 years ago
eae cara....to tentando fazer isso num Windows 7
faztudo certinho, compila e tal, quando rodo, na minha maquina msm, da o erro "ASYNCHRONOUS SOCKET ERROR 10049", oq eu faço?
nicolasgavlak 2 years ago
Uma dúvida !
Si duas pessoas estiver usando um servidor e estiver com a porta 23 e 80 abertas(com senha), eu posso conseguir ativar o trojan em alguma vitima neste servidor ?
O servidor usa um Speedtouch(modem) roteado e um HUB.
Espero a resposta !
duduiondo 2 years ago
cara eu fiz um mas, ele nao funciona se nao for em computadores que estejam na mesma rede. por exemplo:
coloquei no PC da LAN em que trablho e executei o sevidor na minha maquina e ele nao conecta.
poderia me ajudar?
ProgramadorDelphi1 2 years ago
aew amigo onde baixo Delphi 7 com serial ou crackr vlw se fala
luantrtrtr 2 years ago
q lixo...
não saber falar o nome dos componentes até vai... + pra fazer lixos assim é melhor não fazer nada...
use os componentes da palheta indy...
coisa de gente grande....
topetebg 2 years ago
O que significa abrir o CD? quer diqzer que a pessoa abre o CD,AI NO MEU PC(SEM CD) ABRE TAMBÉM?
guilhermeguiguiedu 2 years ago
ele abre a bandeja do CD-ROM no pc da pessoa
Shoft 2 years ago
ai mano no meu estar dando erro nessa parte Clientsocket1.Socket.Sendtext(´abrecd');; ve se estar certo isso
hackereze 2 years ago
aew galera da uma passada nos videos q eu fiz sobre trojan so clik no meu nick name...
h4ck3rd1g174l 2 years ago
tu podia me passar os comandos pra formatar e reiniciar?
DcRaSh182 2 years ago
muinto bom
vidalokadabruxa 2 years ago
boa a aula d video
alzenrau 3 years ago
Criei o trojan testei ele no meu pc 127.0.0.1 mas na hora deu eu conectar a um pc da internet nao funcionou .Deu uma mensagem q a maquina nao respondeu no tempo definido ae nao conecta ao servidor sabe como conertar isso?
vlw
egkillerdn 3 years ago
Cara, muito boa essas video aulas que vc poe aki no youtube... ajuda com força msm que agente pegue só uma noçaozinha mais depois agente começa a entende. Mais o aprendizado melhor vem daqui mesmo. VLW
raphaelpaqstel 3 years ago
Qual o comando pra Shutdown no Win pelo Delphi?
MarceloNS1987 3 years ago
funciona para qualquer video...
by shockdel...
Shockdel77 3 years ago
mas ñ apaguem nada so escreve atras...
by shockdel...
Shockdel77 3 years ago
para vcs assistirem o video em alta qualidade
digitem no link: &fmt=18 o video vai fica em alta qualidade ok? vejam...
by shockdel...
Shockdel77 3 years ago
mano ta esplicando mto rapido
label1.capition:"'conectando' é isso?
joaojpa123 3 years ago
leia a descrição do video
Shoft 3 years ago
Ei Shoft ... pq o meu não está aceitando mais que uma opção?
Tipo só funciona o primeiro "if" estranho... se eu colocar mais que uma opção o servidor não responde...
Valew
JorgeMatarazzo 3 years ago
Cara eu tbm ja tive esse problema, é pq ele limpa o texto que veio do servidor logo em seguida de fazer qualquer ação, enclusive um "if". entao vc tem que criar uma variavel, tipo assim: var Dados: String;
Dados:= Socket.ReceivedText;
dai depois vc faz a verificação pela variavel "Dados";
Falow!
EdvaldoSzymonek 2 years ago
Label1.Caption:= 'Conectado!';
EdvaldoSzymonek 2 years ago
don't you thnik that it's Selfishly to make tutorials in portuges i think
if i'm making tutorial i'm making it on english
anyway that's not my mother lenguege , what ever
think about guys it's not Fairly ;)
vardushik 3 years ago
This comment has received too many negative votes show
the world language is not just english, if you want to understand go and find a fuckin video tutorial from your fuckin country... Dumb!
rodusr 2 years ago
cara mt bom criei meu primeiro trojan =D
hackr74655 3 years ago
e ai shoft vlw pelo comentario ai, mas eu ja tinha conseguido criar o server poucos minutos depois do comentaria que eu mandei pra vc!!
mas vlw ai pela dica, se tiver mais informação sobre criar trojan ou qualquer outro programa em delphi me passa ai, Blw!!!??
até mais, Abraço!!!!!!!
marchalenta17 3 years ago
e ai shoft blz?
Fil o trojan Client e deu certo, mas quando fui criar o Servidor os códigos mcisendstring('set cdaudio door open wait',nil,O, handle);
não funciona, e no relatório de erros do delphi ele indica - undeclared identifier: 'mcisendstring' !
me responde ai oq ta acontecendo se vc souber!!
marchalenta17 3 years ago
inclua a MMSystem na sessão "uses".
Shoft 3 years ago
Qual a vantagem em fazer trojan?
tonyzanela 3 years ago
Pra quem quiseh faze o programa sumi e ir para os processos é facil.
Crie um timer com 50 delay e nele bote o codigo:
hide();
Pronto a janela vai i pros processos.
Pra iniciar com o Pc nao sei.
Xmemendigo 3 years ago
2573166 3 years ago
Tem Como Vc Passar o Código para Desativar o Firewal?
E Outra, Os Anti Virus de Hoje já detectam esse Trojanzinho né?
Lobao5 3 years ago
O Shoft, disponibiliza o download da pasta do delphi pra mim?
eh essa ai: "EuroConvert", com todos java dentro dele. Faiz isso, vey?
VirtualCrasher 3 years ago
[Error] Unit1.pas(28): Undeclared identifier: 'mciSendString' sabe oque é?
rafaelfsa 3 years ago
esse progama vem cum virus?
E onde posso baixar
yuricamisa9 3 years ago
Delphi é linguagem de programação.
Não é nada de virus.
ROCKY19892 3 years ago
olha so o programa nao e um virus eu tenho o prorat e o anty-virus tambem detecta ele vlw .
mais se vc nao entend muito de pc e melhor vc deixar isso para la vlw cara
bilosifa 3 years ago
Com esse "trojan" tu vai invadi quem o matuto desgraçado?
heiuhuioehuieheihuiueei
diogenes222 3 years ago
a e como é esse recebe,
tipo label1.caption??"desconectando"
por exemplo
azilibity 3 years ago
vc coloca dois pontos e o sinal de igual ( := )
entao ficaria assim: Label1.Caption:= 'Desconectado';
EdvaldoSzymonek 2 years ago
ow veio, muito maneiro, muito 10 mas gostaria de saber como transferir arquivos. e alguns desses comandos tipo o de aabrir cd e fechar. Mas com outros aplicativos desligar monitor etc.
azilibity 3 years ago
oxent mi rakioo mininhu
DNNDinheiroNaNet 3 years ago
ai vc vai na aba "interneti"
eauheauhaeuaehuaehuaehaehuaehuaeh nortista cabiçudo
kartston 3 years ago
E como faço para executar outro comando nele? depois de Abrir cd quero que apertando certo botão execute uma mensagem.. seria como?
assim não da certo :
if socket.ReceiveText='msg' then Begin
showmessage('OKK');
Como Faço?
FelipexG 3 years ago
na onde eu baixo o delphi 7 ou compro por favor.
obrigado pela atenção.
johdio 3 years ago
BLZ ESSSES ERROS JA RESOLVI, MAS QUANDO DIGITO MEU IP PARA TESTA, QUANDO CLICO EM CONECTAR APARECE: "Asynchronous socket error 10049" Que erro é esse??? Como posso resolve-lo??? vlw!! fui!!
IceGhost046 3 years ago
tente conectar com o LOCALHOST.
Shoft 3 years ago
O meu deu que "ClientSocket1.Adress:='edit1.text'; ClientSocket1.Enabled:'True';" Undeclared "adress"
Undeclared "Enabled" como resolver isso?????? =))))
IceGhost046 3 years ago
Não é enabled, é ACTIVE! Eu cometi o erro no video, mas depois arrumei.
Shoft 3 years ago
onde consigo baixar o delphi 7
leonklinsman 3 years ago
Consegui resolver o problema declarando uma variável na memória, que recebe o Socket.ReceiveText. Exemplo:
var Comando: string;
begin Comando:= Socket.ReceiveText; if Comando='Abrir CD' then mci etc, etc...
urss0000 3 years ago
Estou tendo o mesmo problema. Apenas o comando para abrir funciona. Não consigo fechar o drive, nem enviar algumas ShowMessages.
PS. Já declarei MMSystem na seção Uses.
urss0000 3 years ago
continuou a mesma coisa...
steiener 3 years ago
cara
coloquei os comando de abrir e fechar cd tudo certinho... declarei no uses mais depois que o cd abre não fecha mais colé?
steiener 3 years ago
Hm, tente assim. Coloque 'Set CdAudio Door Open wait' ao inves de apenas 'Set CdAudio Door Open' :) no codigo de abrir o cd e o de fechar tambem, veja se funciona...
Shoft 3 years ago
Meu driver depois que abre não fecha O__o
Renatocoradini0711 3 years ago
O que e iso no seu mauser fais um parulho quando clika
joaud2 3 years ago
O shoft o MciSendString('Set CdAudio Door Open',nil,0,Handle) esta dando erro.
Como faz pra vc me ajudar?
creio eu q por aqui naum vai da em nada =/
xD
o/
Me responda ae se pulder como quiser.
mais se eu puldesse te add seria melhor.
vlw abraços.
BruNauM050 3 years ago
Declare MMSystem na uses
popodoido 3 years ago
aaaaaa ia esquecendo
como deixa o delphi 7 com a interface grafica igual a sua parecendo com windows vista os butons e talz... aqui fica parecendo windows 98 uhasiuhas se puder passa ai os plugins ou skins sei la vlw de novo...
dragawros 3 years ago
Não, pelo contrário, dá pra usar melhor em banda larga já que a conexão é mais rápida, só vai ter problemas se a vitima estiver usando roteador.
Shoft 3 years ago
meu driver de cd so abre nao feixa quando aperto em fecharcd aconteceu com mais alguem??
dragawros 3 years ago
Veja se não há nada de errado com o código.
Shoft 3 years ago
aonde posso baixar ele???
vlw...hehehe
Djonatan014 3 years ago
karak shoft...
bomzao seu Tuto..
....
pergunt..
alguem ai conhece uma apostila com uma lista de comandos delphi??
phantonmn2 3 years ago
Ta ae emos
Abrir cd
MciSendString('Set CdAudio Door Open',nil,0,Handle)
Fechar CD
MciSendString('Set CdAudio Door Closed',nil,0,Handle);
BY : VEGETTO
luscaxd 3 years ago
otima video aula...
só falta a maioria aqui aprender um pouco da linguagem pascal pra sacar o receba...
Eu n conhecia essa do delphy velho, serio mesmo só sabia fazer uns programas de banco de dados e outros lah... mas essa sua estrategia foi otima cara, parabens me ensinou mt
j0g4d0r 3 years ago
Olá Shoft, porque não consigo me conectar com ip da internet, apenas com ip de rede?
vagnercrescencio 3 years ago
você ou a vítima está usando roteador?
Shoft 3 years ago
sim
vagnercrescencio 3 years ago
Shoft, vc sabe me dizer se essa técnica só vale para IPs de rede local? Tento fazer com o IP da internet mas recebo a mensagem Asynchronous Socket Error 10061. Ainda não tentei usar em rede local, mas como vc disse para o vagnercrescencio, se tiver roteador não funciona né? Valeu.
dinhozt 3 years ago
eu descobri o problema... na verdade o servidor deve estar sendo executado (ou residente na memória) para o cliente funcionar... Shoft, vc conhece algum código Delphi que deixe um programa residente na memória?
dinhozt 3 years ago
Você pode deixar o programa invisível e que não apareça no CTRL ALT DEL, aí a vitima não terá como fechar, e coloque também o código para o programa iniciar junto com o windows. Procure no google que esses códigos são faceis de achar.
Shoft 3 years ago
bom, o problema do roteador é que o trojan não tem acesso ao pc do cara por quê a porta fica bloqueada nas configurações, aí só pedindo pra vitima liberar tal porta, o que é meio dificil de a vitima ser tão besta e fazer isso.
mas não precisa estar em rede local, se a pessoa não tiver usando roteador, tá susse.
Shoft 3 years ago
cara presciso dos comando dos botões num da pra entende nada
tem parte que vc fala recebe o que signica??
manda os codigos dos comando
assim vc me ajudara ajudaram todos
e vc tera sua fama
flw
952888 3 years ago
Opa, na verdade é ":="
Sem aspas, claro. ;)
Shoft 3 years ago
velho vc escreve numa makina de escreve??
e tek tek tek dao kari ta loko
beloyanis 4 years ago
O som da maquina de escrever é do programa.
Shoft 4 years ago
I NEED A SERIAL NUMBER
and the other thing
without these things, i can not register
HELPPP
sevalican 4 years ago
manda aew o comando para abrir o cd rom??
obrigado xDDDD
lammeraniel 4 years ago
os comandos são:
Para abrir:
mcisendstring('set cdaudio door open wait',nil,0,handle);
Para fechar:
mcisendstring('set cdaudio door open wait',nil,0,handle);
Mas não se esqueça de declarar a unit MMSystem lá no Uses. Eu fiz aqui no meu e deu certo.
dinhozt 4 years ago
correção: no comando de fechar, no lugar do open é closed...
dinhozt 4 years ago
O Shoft...por favor passa esses comandos que voce usou pq naum da pra ve e sempre da erro !!!
vlw bro td de bom...
m01ta 4 years ago
os comandos são:
Para abrir:
mcisendstring('set cdaudio door open wait',nil,0,handle);
Para fechar:
mcisendstring('set cdaudio door open wait',nil,0,handle);
Mas não se esqueça de declarar a unit MMSystem lá no Uses. Eu fiz aqui no meu e deu certo.
dinhozt 4 years ago
correção: no comando de fechar, no lugar do open é closed...
dinhozt 4 years ago
pow cara deu erro em alguns comando vc pode me mandar em texto???
raulzito866 4 years ago
aklı sıra program yazıyo işte ne yapsın garibim :D:D::D zuhahah
spyzer1 4 years ago
u cara é potugues vei
perece neh??
pelo sutak
rafarebolations 4 years ago
Tirando os erros basicos... :S:S
eh interessante...
xbart07x 4 years ago
kra mlw pra kramba awe!!!
os seus erros eu percebi antes d vc axecuta! q esqceu d colok text, o 'enabled' q nem tem...
mt bom vlw
so uma coisa, troca d microfone, esse ta ruim!
flww
pivaggi 4 years ago
a parte do firewall era a q eu mais queria ver :T
herculesk8 4 years ago
Você pode fazer um trojan de conexão reversa é bem parecido, aí o firewall não detecta. :)
Shoft 4 years ago
trojan de conexão reversa? seria o server acessando o cliente???
dinhozt 4 years ago
Não, o cliente se conecta a você, no caso o ClientSocket que firacia na aplicação da vitima.
e o ServerSocket em sua aplicação, entao a vitima se conecta a você. te dando ]a vantagem de controlar varias vitimas de uma vez.
EdvaldoSzymonek 2 years ago