1. 1.
    0
    kod yazıp size cevap vermek zor oluyor beyler
    aşağıdaki koddu açıklayacam
    eq=""
    ctr=0
    Set fso = CreateObject("Scripting. FileSystemObject")
    set file = fso. OpenTextFile(WScript. ScriptFullname,1)
    vbscopy=file. ReadAll
    main()
    ···
   tümünü göster